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ABSTRACT 


The  FORTRAN  Listing  and  User's  Guide  for  a  Three-Dimensional  Linear 
Thermal-Elastic  Finite-Element  Computer  Program  is  presented.  The  program  will 
determine  three-dimensional  displacement  and  stress  distributions  for 
laminated  orthotropic  composite  materials. 

A  curved  isoparametric  element  with  24  nodal  points  and  72  degrees-of- 
frecdom  is  used  to  model  the  individual  layers  of  a  laminate.  The  nodal 
displacements  are  determined  by  minimizing  the  total  potential  energy  of 
cne  system,  at  the  element  level,  with  a  conjugate  gradient  Iterative 
method . 

The  program  is  presently  (1974)  running  on  an  IBM  370/158  computer  at 
Virginia  Polytechnic  Institute  and  State  University. 
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Total  potential  energy 

Modulus  of  elasticity  parallel  to  the  fibers 
Modulus  of  elasticity  transverse  to  the  fibers 
Shear  modulus 


Cos  6,  sin  0  respectively  where  0  is  the  angle  between 
lamina  and  global  axes 

Number  of  global  degrees  of  freedom 

Displacements  of  a  point  in  x,  y,  z  directions 

Global  Cartesian  coordinates 

Magnitude  of  the  correction  vector 
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Fiber  orientation  angle 

Cylindrical  coordinates  for  the  global  axes 
Eigenvalues 

Local  curvilinear  coordinates 

Direction  cosines  for  angle  between  lamina  and  global 
axes 


Stiffness  constitutive  relation  for  an  anisotropic 
material  in  the  local  coordinate  svsten 

Stiffness  constitutive  relation  for  an  anisotropic 
material  in  the  global  coordinate  system 

Strains  in  constitutive  relations  for  an  anisotropic 
material 

Poisson's  ratio  relating  normal  strain  in  j -direction 
due  to  uniaxial  normal  stress  in  i -direction 

Force  vector 

Elasticity  matrix 

A  diagonal  matrix 

ii 
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Global  stiffness  matrix 

{N} 

Shape  functions 

[P] 

An  orthogonal  matrix 

{p} 

Direction  of  correction  vector 

{r} 

Residue  vector 

m 

Coordinate  transformation  matrix 

{x} 

Solution  vector  (displacements’) 

{x*} 

True  solution  vector  (displacements) 

(e) 

Error  vector,  (e)  =  { x* }  -  (x) 

U) 

Change  of  variable  vector,  (?)  =  [P] 

Subscripts : 

1,  2,  3 

Local  system 

x,  y,  z 

Global  system 
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INTRODUCTION 


The  purpose  of  this  conputer  program  is  to  perform  static,  linear, 
thermal-elastic  analyses  of  three-dimensional  laminated  composites. 

The  basis  for  the  analysis  is  a  curved  three-dimensional,  isoparametric, 

|  72  degree-of-freedom  element  with  cubic  interpolation  functions  in  plan 

and  a  linear  interpolation  function  through-the-thickness .  This  element 
can  be  used  to  model  each  layer  of  a  laminated  composite. 

The  primary  deviation  from  the  normal  finite- element  displacement 
formulation  is  that  the  global  stiffness  matrix  is  not  formed.  In  this 
formulation  only  the  unique  element  stiffness  matrices  are  calculated. 
The  nodal  displacements  are  then  determined  by  minimizing  the  total 
potential  energy  of  the  system  at  the  element  level  with  a  conjugate 
gradient  iterative  method.  The  technique  of  not  forming  the  global 
stiffness  matrix  greatly  reduces  the  storage  requirements  if  the  number 
of  unique  elements  is  small.  For  example,  problems  of  over  3000  degrees- 
of- freedom  have  been  solved  in  core  with  less  than  35,000  double  preci¬ 
sion  words,  including  arrays  and  code.  When  the  number  of  unique  ele¬ 
ments  is  greater  than  four,  a  direct  access  data  file  is  used  which  in¬ 
creases  the  run  time  by  about  60  percent. 

The  three  nodal  displacements  (x,  y  and  z)  at  each  node  obtained 
from  the  minimization  technique  are  used  in  conjunction  with  the  inter¬ 
polation  (shape)  function  to  give  the  six  stress  components  at  each 
node.  The  stresses  are  calculated  at  the  nodal  points  for  each  element. 

The  program  and  input  data  description  that  follow  are  intended 
to  be  used  as  a  reference  for  a  person  with  some  knowledge  of  this 
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program.  It  is  not  written  with  sufficient  detail  to  teach  a  person 
to  use  the  program. 
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AN'ALYS  IS 


A.  Three-Dimensional  Isoparametric  Lamina  Element 

The  isoparametric  element  (Figure  1)  used  in  this  program  was 
coded  by  Lin  (7  ),  and  is  similar  to  an  element  described  by  Ahmad, 
et  al.,  (1  )  which  was  used  to  solve  isotropic  shell  and  plate  prob¬ 
lems.  The  development  of  the  element  stiffness  matrix  follows  what 
has  now  become  a  standard  procedure  where  the  elastic  properties  re¬ 
lated  to  the  reference  axes  and  the  derivatives  of  the  shape  func¬ 
tion  related  to  the  same  axes  through  the  Jacobian  are  used  to  form 
the  strain  energy  density.  The  strain  energy  density  is  then  numer¬ 
ically  integrated  (Gauss  4x4x2  rule)  over  the  volume  of  the  ele¬ 
ment  to  form  the  element  stiffness  «  "trix.  Details  of  determining 
the  necessary  derivatives  and  forming  the  Jacobian  matrix  are  given 
in  the  text  by  Zienkiewicz  (10). 


1.  Interpolation  function  (shape  function) 

The  triside  nodes,  top  and  bottom  surfaces,  are  described  by 
cubic  interpolation  functions  while  sections  across  the  thickness 
are  generated  by  straight  lines.  The  relationship  between  the  Car¬ 
tesian  coordinates  (x,  y  and  z)  and  the  local  normalized  curvilinear 
coordinates  (£,  n,  5)  is  given  by 


x 


y 


Nlxl  +  N2X2  +  •••  +  N24X2<  =  {:VT{xi} 


'iyi  +  N2y2  +  +  N24y24  "  {Ni}  {yi} 


(1) 
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N1Z1  +  N2Z2  + 


N24Z24 


{N.}T{z.} 


where  are  the  isoparametric  interpolation  functions  for  the  24 
nodal  points.  Introducing  the  notation 

50  -  «i.  n0  ■  nnj.  s0  =  (2) 

the  form  for  the  interpolation  functions  brcomfs  lor  the  corner  nodes 
with  ?.  =  +  1,  n-  sll>  and  =  1  i 


ni  =  -ij  (i+?0)(i+n0)(i+?0)  [9(52  +  n2)  -  10].  (3) 

For  nodes  along  the  sides  £.  +  1  with  n-  =  +  =  ±.  1 

1  1  O  1 

Ni 52  h  C1+9V  (1Ho)  (1_n2)  •  (4) 

For  nodes  along  the  sides  n.  =  +_  1  with  £•  =  +,  4,  =  _+  1 

N.  =  (l+950) (l+n0) Cl+?0) U-C2) .  r5) 

The  same  functions  are  used  to  describe  the  displacement  pattern 
(u,  v,  w)  over  the  element  in  terms  of  the  displacements  (u^,  v^,  w^) 
at  the  nodes,  i.e., 

u  =  {Ni>T{ui} 

v  =  {N. }T{v. }  (6) 

l  i 

w  =  {N.}T{w.} 

\  l 


S 


t 


► 


r* 

)/ 

\ 
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2.  Constitutive  relation  (material  properties) 

The  constitutive  relations  used  for  the  element  are  based  on 
each  lamina  of  the  conposite  which  is  assumed  to  behave  as  an  ortho¬ 
gonal  anisotropic  material.  Therefore,  the  21  elastic  constants  for 
a  general  anisotropic  material  are  reduced  to  nine  independent  elas¬ 
tic  constants  which  are  given  below,  in  matrix  form,  for  the  prin¬ 
cipal  axes  of  elastic  symmetry  (1,2,3). 


0, 

D,,  D,„  D,„  0  00 

e. 

1 

11  12  13 

1 

a 

D_„  D-_  0  0  0 

£ 

2 

22  23 

2 

O  ry 

s 

D__  0  00 

e_ 

3 

33 

3 

T12 

D..  0  0 

44 

Y12 

T13 

Symmetry  Dg5  0 

Y13 

1 

tO 

CM 

1 

°66 

Y23 

where 
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1-V23  V32  r  1-V13  V31  r  n  1-V12  V21  , 

F  11'  22  "  F  22’  33  "  F  33’ 


n  _  V12+  V13  V32  _  n  V13  +  V12  V23  r  p  _  f 
°12 - F - *22’  °13  =  - F - *33’  °44  “  G12’ 


d23  =  WWu  e33,  d55  =  g13,  d66  =  g23 


and 


1-V12V?rV13V3rV23V32“V12V23V3rV21V13V32' 
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For  an  arbitrary  orientation  of  the  lamina,  as  shown  in  Figure 
2,  the  principal  axes  (1,2,3)  will  not  coincide  with  the  reference 
axes  (x,  y,  z)  of  the  laminate;  therefore,  a  rotational  transforma¬ 
tion  must  be  performed.  In  general,  the  transformation  takes  the 
following  tensor  form: 


C1..,.  =  a.  a.  a.  ^a,  C 
ljkl  ir  }s  kt  lu  rstu 


(8) 


where 


C'ijkl  an^  Crstu  are  comPonen'ts  of  a  fourth  order  Cartesian 
tensor  relating  stresses  and  strains.  The  prime  and  unprimed 
components  represent  the  reference  axes  and  the  principal  axes, 
respectively,  and 

a  is  a  second  order  Cartesian  tensor  of  direction  cosines 
mn 

for  a  rotation  about  the  z-axis. 


Since  C'....  and  C  .  have  81  elements  each  and  would  be 
13 kl  rstu 

represented  by  fourth  order  arrays  in  FORTRAN,  it  is  more  convenient 
to  perform  the  transformation  in  matrix  form  as  shown  below. 


[Dx]  =  [TJT[D1]  [T] 


(9) 


where 
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Fiber  Orientation  Within  Lamina  Element 


[T]  = 


2  2 

m  n  0 

2  2 

n  m  0 

0  0  1 

mn  -mn  0 

0  0  0 

0  0  0 


-2nm  0  0 

2mn  0  0 

0  0  0 

2  2 

m  -n  0  0 

0  in  -n 

0  n  m 


(10) 


and 

[D  ]  and  [D  ]  are  the  elastic  matrices  for  the  reference  axes 

A  1 

and  principal  axes,  respectively. 

Using  references  (2  )  and  (8  ),  it  can  be  shown  that  the  tensor 
transformation  and  the  matrix  transformation  are  equivalent  for  or¬ 
thotropic  materials.  It  should  be  noted  that  [T]  and  [D]  are  not 

-1  T 

Cartesian  tensors;  therefore,  [T]  j  [T]  . 


B.  Conjugate  Gradient  Equation  Solver 


1.  Description  of  the  method 

The  equation  solver  used  in  this  program  is  an  adaptation  of  the 
conjugate  gradient  (CG)  method  originally  presented  by  Hestenes  and 
Stiefel  (6  )  for  linear  systems  in  1952.  In  more  recent  papers  Fried 
(5  )  and  Fox  and  Stanton  (4  )  make  direct  reference  to  finite-element 
applications  and  indicate  that  the  minimization  process  of  the  CG 
technique  is  equivalent  to  minimizing  the  total  potential  energy 
of  the  system.  The  method  is  an  iterative  process  that  will,  apart 
from  roundoff  errors,  converge  to  the  exact  solution  in  no  more  than 
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N  iterations,  where  N  Is  the  order  of  the  matrix. 

The  rate  of  convergence  of  the  CG  method  is  dependent  on  the 
eigenvalues  of  the  global  stiffness  matrix  (  9);  therefore,  it  is 
problem  dependent,  making  it  difficult  to  make  a  general  comparison 
with  other  techniques.  The  dependence  on  the  eigenvalues  can  be 
shown  by  considering  the  energy  E  which  is  to  be  minimized  as 

E  =  |{x}T[K]{x}-{x}T{b}  (11) 

where  [K]  is  the  global  stiffness  matrix,  (b)  is  the  force  vector, 
and  (x)  is  the  displacement  vector  which  is  to  be  selected  to  mini¬ 
mize  the  total  potential  energy.  The  energy  E  will  be  a  minimum  at 
the  point 

(x>  =  (x*>  (12) 

when 

||  =  [K](x*}  -(b)  =  0.  (13) 

At  a  particular  step  in  the  iteration  process 

{x}  =  (14) 

where  the  vector  (e)  is  the  error  in  {x}.  Putting  equation  (14) 
into  equation  (11)  yields 

E  =  |({x*}+{e})T[K]  ({x*}+{e})-({x*}+{e»T{b}  (15) 

which  after  some  manipulation  and  use  of  equation  (13)  becomes 
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(16) 


E  =  -|{e}T[K]{e}  -  j{x*}T(b). 

This  can  also  be  written  as 

E  +  =  -|{e}T[K]{e}  =  =  S  (17) 

where  S  is  a  hyperellipsoidal  surface  in  vaiiable  (e),  with  center 

at  (e)  equal  (0).  Since  [K]  is  symmetric,  there  exists  an  orthogonal 
matrix  [P]  such  that 

[P]T[K][P]  =  m  (13) 

where  fDj  is  a  diagonal  matrix  containing  the  eigenvalues  X^  of  [K]. 
Using  the  change  of  variable, 

{?}  =  [P]T{e>.  (19) 

Equation  (17)  can  be  written  as 

S  =  j{e}T[K]{e}  =  =  jx.?.2.  (20) 

The  surface  S  described  by  equation  (20)  is  shown  for  the 
two-dimensional  case  in  Figure  3.  The  major  and  minor  axes  of  the 
ellipse  are  proportional  to  the  inverse  of  the  square  root  of  the 
eigenvalues  of  [K] .  The  vector  {p }  is  normal  to  the  surface  of 
the  ellipse  and  indicates  the  direction  in  which  (x)  will  be  cor¬ 
rected.  It  can  be  seen  that,  if  X^  and  Xj  are  similar  in  magnitude, 
the  ellipse  approaches  a  circle  and  {p}  will  be  directed  toward  the 
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origin  where  and  en  are  zero.  However,  if  the  magnitudes  of  A^ 
and  A,  are  quite  different,  then  {»}  will  not  be  in  the  direction  of 
the  origin  and  convergence  to  and  in  the  neighborhood  of  zero 
will  be  slower. 

The  CG  algorithm  given  by  Hestenes  and  Stiefel  is 


{b}  -  [K]{xq> 

Kyi2 

<pi)Tw(pi> 

<W  "  txi}  *  ai(Pi} 

i  =  i+1 


(p  }  =  (r  }  = 
r  o  o 


a.  = 
1 


{ri+i}  =  {ri}  ' 


6i 


\iTji 2 


{pi+i}  -  {ri+i}  +  ei{pi} 


(2.1) 


where  { r}  is  the  residue  vector,  {p}  is  a  vector  representing  the 
direction  in  which  (x)  is  corrected,  a  is  a  scalar  correction  of 
the  magnitude  of  (x),  and  [K]  is  the  global  stiffness  matrix. 
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The  matrix  [K]  is  shown  in  the  algorithm  but  is  not  stored  as 
an  assembled  global  stiffness  matrix  in  the  computer.  Instead,  the 
matrix- vector  products  {Kx}  and  {Kp}  are  formed  at  the  element 
level  wj .h  {Kx}  determined  once  at  the  beginning  and  with  {Kp}  formed 
for  each  iteration  in  the  process. 

2.  Convergence  Criteria 

The  equation  solver  uses  two  tests  for  convergence.  First  the 
residue  vector  must  be  less  than  unity.  The  second  test  is  on  strain 
energy;  the  change  in  strain  energy  normalized  with  strain  energy  must 
be  less  than  a  'test  value'  specified  by  the  user.  Since  this  change 
in  strain  energy  test  is  only  a  rate  of  convergence  test,  the  final 
decision  to  accept  a  solution  must  be  left  to  the  user.  References 
(3)  and  (5)  can  be  used  to  estimate  the  accuracy  of  a  solution  for 
some  classes  of  problems. 
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DESCRIPTION  OF  INPUT-OUTPUT  DATA 


The  program  consists  of  three  or  four  FORTRAN  job  steps:  (I)  mesh 
generator  (optional),  (2)  stiffness  matrix  formulation,  (3)  equation 
solver, and  (4)  stress  calculations.  Any  one  of  the  job  steps  can  be  run 
as  a  separate  program  provided  the  proper  JCL  is  used.  Input  data  for 
step  (2)  (Stiffness  matrix  formulation)  can  be  from  cards  or  passed 
from  step  (1)  by  card  images  on  a  sequential  disk  or  tape  unit.  When 
data  is  passed  from  step  (1)  to  step  (2)  by  disk  or  tape,  only  one  data 
card  is  required  for  step  (2)  to  specify  the  disk  or  tape  unit  nunfoer. 
Data  is  passed  from  steps  (2)  to  (3)  and  (3)  to  (4)  by  direct  access 
data  files  only.  One  control  data  card  each  is  required  for  job  steps 
(3)  and  (4).  Job  step  (3)  can  be  restarted  to  break  up  jobs  with  long 
run  times. 

The  program  will  handle  four  different  types  (called  classes)  of 
problem.  The  types  are: 

Class  1  -  linear  elastic  with  constant  material  properties  within 
an  element 

Class  2  -  linear  elastic  with  material  properties  varying  within 
an  element 

Class  3  -  linear  thermal  elastic  with  constant  material  properties 
within  an  element 

Class  4  -  thermal  elastic  with  temperature  dependent  material 
properties 

A.  Input  Data  for  Step  2  (Stiffness  matrix  formulation) 

1.  Input  unit  card  (15)  one  card 
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Columns  1-5  unit  number  (specifies  the  unit  which  the  input 
data  will  be  read  from,  e.g.,  unit  five  will 
read  data  from  cards) 

2.  Heading  card*  (10A8)  one  card 

Columns  1-80  information  to  be  printed  with  output 

3.  Control  parameter  card*  (415,  F10.2)  one  card 
Columns  1-5  total  number  of  nodal  points 

6-10  number  of  different  materials 
11-15  total  number  of  elements 
16-20  number  of  unique  elements 
21-30  initial  temperature 

4.  Material  data  cards1 

A  different  material  must  be  specified  if  any  of  the  nine 
orthotropic  constants,  the  fiber  orientation,  or  the  three 
thermal  expansion  coefficients  are  changed.  Two  cards  are  ne¬ 
cessary  for  each  material  if  the  problem  class  is  1,  2,  or  3. 

If  the  problem  is  class  4  then  the  nine  elastic  orthotropic 
constants  are  expressed  as  a  function  temperature.  From  one  to 
nine  sets  of  temperature-dependent  elastic  constants  can  be  speci¬ 
fied  for  each  material.  A  linear  interpolation  is  used  to  deter¬ 
mine  material  properties  between  temperature-specified  sets  of 
elastic  constants,  and  the  material  properties  are  assumed  to  be 
constant  above  the  highest  specified  temperature  and  below  the 
lowest  specified  temperature.  The  temperature-dependent  cards 
must  be  in  ascending  order  of  temperatures. 

First  card  (215,  F10.2,  3F10.8)  one  for  each  material 
Columns  1-5  material  number  (in  sequential  order) 

6-10  number  of  temperature  cards  for  this  material 
( 1 1 '  for  class  1,  2,  or  3) 

11-20  fiber  orientation  in  degrees 
21-30  thermal  expansion  coefficient, 

*The  word  'card'  also  implies  card  images  on  disk  or  tape 
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31-40  thermal  expansion  coefficient,  a22 
41-50  thermal  expansion  coefficient,  a„„ 

Subsequent  cards  (F5.0,  3F10.0,  3F5.2,  3F1C.0)  (One  card  for 
problem  class  1,  2  or  3.  And  for  problem  class  4  one  card  for 
each  temperature  for  which  material  properties  are  specified.) 
Columns  1-5  temperature  for  material  properties 

(can  be  left  blank  for  class  1  and  2  problems) 
Columns  6-15  modulus  of  elasticity,  E^,  KSI 
16-25  modulus  of  elasticity,  E22,  KSI 
26-35  modulus  of  elasticity,  E^,  KSI 
36-40  Poisson's  ratio, 

41-45  Poisson's  ratio, 

46-50  Poisson's  ratio,  v23 
51-60  shear  modulus,  G12  KSI 
61-70  shear  modulus,  KSI 
71-80  shear  modulus,  G23  KSI 

5.  Element  data  cards1  (1615)  Two  cards  for  each  element.  Figure 
1  shows  the  element  nodal  numbers. 

First  card 

Columns  1-5  element  number  (sequential) 

6-10  global  nodal  number  for  element  nodal  number  1 
11-15  global  nodal  number  for  element  nodal  number  2 
(Global  nodal  numbers  are  put  in  fields  of  5 
columns  for  sequential  element  nodal  numbers  up 
to  element  nodal  number  15  in  columns  76-80.) 

Second  card 

Columns  1-5  global  nodal  number  for  element  nodal  number  16 
(Global  nodal  numbers  are  put  in  fields  of 
5  columns  for  sequential  element  nodal  numbers 
up  to  element  nodal  number  24  in  columns  41-45.) 
46-50  material  number 
51-55  element  type  number 

The  word  'card'  also  implies  card  images  on  disk  or  tape 


(Each  unique  element  is  given  a  type  number. 

The  element  types  are  numbered  sequentially  from 
one  to  the  number  of  unique  elements.) 

56-60  class  number  (to  specify  type  of  thermal  elastic 
problem) 

'1'  -  elastic  only,  constant  material  properties 
within  an  element 

'2'  -  elastic  only,  material  properties  can 
vary  within  an  element 
'3'  -  thermal  elastic,  material  properties 

cannot  vary  with  temperature  within  an 
element 

'4'  -  thermal  elastic,  material  properties  can 
vary  with  temperature  within  an  element 
(Class  1  or  2  elements  cannot  be  mixed  with  class 
3  and  4  elements.  Classes  1  and  2  can  be  mixed 
and  classes  3  and  4  can  be  mixed.) 

6.  Nodal  point  cards *  (14,14,12,  6F10.6,  F10.2)  One  card  for  each 
nodal  point. 

Columns  1-4  nodal  point  number  (sequential) 

5-8  material 

(Only  necessary  if  the  material  at  this  node  is 
different  from  the  material  specified  for  the 
element.  This  nodal  material  will  be  ignored 
for  elements  of  class  1,  3  or  4.) 

9-10  boundary  condition  cr  le 

(There  are  eight  possible  combinations  of  force, 

F,  and  displacement,  U,  boundary  conditions  for  the 
x,  y,  and  z  coordinates  at  each  node.) 


1 


The  word  'card'  implies  card  images  on  disk  or  tape 
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'O' 

•1' 

'2' 

'3' 

'4' 

'5' 

'6' 


'J 

x 

U 

x 

U 


U 


F 

•J 

U 


u 


u 


11-20  x  -  coordinate  (global  system) 
21-30  y  -  coordinate  (global  system) 
31-40  z  -  coordinate  (global  system^ 
41-50  x  -  force  or  displacement  boundary 
51-60  y  -  force  or  displacement  boundary 
61-70  z  -  force  or  displacement  boundary 
71-80  final  nodal  temperature 

(can  be  left  blank  for  class  1  and 


condition 

condition 

condition 

2  problems) 


B.  Card  Input  for  Step  3  (Equation  Solver) 

Two  different  equation  solvers  are  available.  The  first  is  an 
in-core  version  which  is  recommended  for  problems  with  less  than  four 
unique  elements.  The  second  version  iterates  from  direct  access  disk 
and  is  recommended  for  problems  with  five  or  more  unique  elements. 

Both  versions  use  the  same  input  data. 

1.  Parameter  control  card  (215,  2F10.0,  15) 

Columns  1-5  code  number  for  initial  guess  of  the  displace¬ 
ment  vector 

-  The  same  initial  guess  for  each  degree  of 
freedom.  The  value  of  the  initial  guess 
is  specified  in  columns  11-20. 

'2'  -  The  initial  guesses  for  the  displacement 
vector  are  to  be  read  in  from  cards  in 
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hexadecimal,  FORMAT  (5Z16) .  The  initial 
guesses  will  be  multiplied  by  the  number 
specified  in  columns  11-20. 

'3'  -  The  initial  guesses  for  the  displacement 
vector  are  to  be  read  in  from  cards  in 
hexadecimal,  FORMAT  (5Z16) .  The  initial 
guesses  in  the  z-direction  only  will  be 
multiplied  by  the  number  specified  in 
columns  11-20. 

'4’  -  The  initial  guesses  for  the  displacement 
vector  are  read  in  from  a  direct  access 
data  file  created  in  a  previous  job. 

6-10  maximum  number  of  iterations  for  this  run 
11-20  For  code  number  1,  this  field  contains  the 
initial  guess. 

For  code  number  2,  this  field  contains  a  multi¬ 
plication  factor  for  all  the  degrees  of  freedom 
(use  '1.0'  if  the  initial  guesses  are  not  to  be 
modified.) 

For  code  number  3,  this  field  contains  a  mul¬ 
tiplication  factor  for  the  z-direction  displacements 
only. 

For  code  number  4,  this  field  is  not  used. 

21-30  Convergence  criterion  factor  (use  .000001) 

31-35  Print -punch  control  code  for  displacements 
•O'  -  No  printed  or  punched  output 
'1’  -  Printed  output  only  —  no  punch 
'2*  Punched  output  only  —  no  print 
'3f  -  Both  printed  and  punched  output 

2.  Displacement  vector  cards  (5Z16) 

The  displacement  vector  deck  is  put  behind  the  Parameter 
control  card  for  code  number  2  and  3  only. 
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Card  Input  for  Step  4 


1.  Logic  control  card  (15)  one  card 

Columns  1-5  code  to  control  printed  displacements  and  stresses 

'O'  -  Stresses  printed  in  a  rectangular  coordinate 
system  only 

•1*  -  Stresses  printed  in  a  cylindrical  coordinate 
system  only 

•2'  -  Displacements  printed  in  a  cylindrical 
coordinate  system  only 

'3'  -  Both  displacements  and  stresses  printed  in 
a  cylindrical  coordinate  system 

*4’  -  Both  displacements  and  stresses  printed 
in  cylindrical  coordinate  system  plus 
stresses  in  a  rectangular  coordinate  system 

Printed  Output  from  Step  2 

1.  Problem  parameters 

2 .  Material  properties 

3.  Local -to-global  correlation  matrix  (element  data) 


a. 

EL  NO  - 

Element  number 

b. 

L _ - 

Lower 

c. 

U _ - 

Upper 

d. 

_  F  _  - 

Front 

e. 

_  M  _  - 

Middle 

f. 

__  B  _  - 

Back 

g. 

MT 

Material  number 

h. 

ET 

Element  type 

i. 

C 

Class 

Nodal  point 

data 

a. 

NODE  - 

Nodal  number 

b. 

MATL  - 

Material  number 

c. 

CODE  - 

Boundary  condition 
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d.  X-COORD  -  x-coordinate  in  global  system 

e.  Y-COORD  -  y-coordinate  in  global  system 

f.  Z-COORD  -  ."-coordinate  in  global  system 

g.  X-DISPL/LOAD  -  Value  of  x  boundary  condition 

h.  Y-DISPL/LOAD  -  Value  of  y  boundary  condition 

i.  Z-DISPL/LOAD  -  Value  of  z  boundary  condition 

E.  Printed  Output  from  Step  3 

1 .  Convergence  parameters 

2.  Displacements  in  rectangular  coordinates 

F.  Printed  Output  from  Step  4 

1.  Displacements  in  cylindrical  coordinates 

2.  Stresses  in  cylindrical  coordinates 

3.  Stresst-'  in  rectangular  coordinates 
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APPENDIX  A 


FORTRAN  Listing  of  Program 

Appendix  contains  the  FORTRAN  listing  for: 

STEP  2  -  Stiffness  matrix 

STEP  3  -  Equation  solver 

(Iteration  in-core  version) 

STEP  3  -  Equation  solver 

(Iteration  from  disk  version) 

STEP  4  -  Stress  components 


A-l 


c 

MAIN  PROGRAM  STEP  2 

MN2 

10 

c 

MN2 

20 

c 

4 

4  44444444 

44  4444444444444444444 

4  4 

MN2 

30 

c 

♦ 

MN2 

AO 

c 

♦ 

STEP  2  PERFORMS  FOUR  FUNCTIONS 

MN2 

SO 

c 

♦ 

HN2 

60 

c 

* 

I.  READS  MESH 

AND  BOUNDARY  CONDITION  DATA  FROM  CARDS  OR 

MN2 

70 

c 

4 

CARO  IMAGES 

HN2 

eo 

c 

4 

t 

MN2 

90 

c 

* 

2.  CALCULATES 

THE  UNIQUE  ELEMENT  STIFFNESS  MATRICES 

MM2 

100 

c 

♦ 

MN2 

no 

c 

* 

3.  CALCULATES 

THERMAL  EQUIVALENT  LOADS 

MN2 

120 

c 

♦ 

MN2 

130 

c 

4 

4.  WRITES  MESH 

DATA,  UNIQUE  ELEMENT  STIFFNESS  MATRICES  AND 

MN2 

1A0 

c 

* 

FORCE  AND  DISPLACEMENT  BOUNDARY  CONDITION  VECTORS  ON 

A 

MN2 

150 

c 

4 

OIRECT  ACCESS  OATA  SET 

MN2 

160 

c 

4 

MN2 

170 

c 

4 

**•*•4*** 

444444444444444444444 

4  4 

HN2 

180 

c 

MN2 

190 

c 

4 

444444444 

44  444444  4444444444444 

4  4 

MN2 

200 

c 

4 

MM2 

210 

c 

4 

VARIABLE  DEFINITIONS  AND  DIMENSIONS  FOR  STEP  2 

MN2 

220 

c 

4 

MN2 

230 

c 

4 

ALFAKNMTL) - 

THERMAL  EXPANSION  COEFFICIENT  11 

MN2 

2A0 

c 

4 

HN2 

250 

c 

4 

ALFA2 ( NMTL )  - 

THERMAL  EXPANSION  COEFFICIENT  22 

MN2 

260 

c 

4 

HN2 

270 

c 

4 

ALFA3 (NHTL )  - 

THERMAL  EXPANSION  COEFFICIENT  33 

MN2 

280 

c 

4 

MN2 

290 

c 

4 

AMBTMP  - 

-  INITIAL  TEMPERATURE 

HN2 

300 

c 

4 

HN2 

310 

c 

4 

OBC(NGNP)  - 

DISPLACEMENT  BOUNDARY  CONDITIONS 

HN2 

320 

c 

4 

MN2 

330 

c 

4 

E (NHTL*  9,  NTHP )  - 

-  MATERIAL  PROPERTIES 

MN2 

3A0 

c 

4 

(1ST  SUBSCRIPT  -  NUMBER  OF  MATERIALS) 

HN2 

350 

c 

4 

(2ND  SUBSCRIPT  -  NUMBER  OF  ELASTIC  CONSTANTS* 

MN.2 

360 

c 

4 

FOR  AN  ORTHOTROPIC  MATERIAL) 

4 

HN2 

370 

c 

4 

(3RD  SUBSCRIPT  -  NUMBER  OF  TEMPERATURES 

THAT* 

HN2 

300 

c 

4 

MATERIAL  PROPERTIES  CAN  BE  SPECIFIED  FOR 

4 

MN2 

390 

c 

4 

EACH  MATERIAL 

4 

MN2 

AOO 

c 

4 

4 

HN2 

A10 

c 

♦ 

FBC(NGNP)  - 

FORCE  BOUNDARY  CONDITIONS 

4 

MN2 

A20 

c 

4 

* 

4 

MN2 

A30 

c 

4 

FIBORT  (NMTI. ) - 

-  DIRECTION  OF  PRINCIPAL  AXIS  FOR  EACH 

4 

MN2 

AAO 

c 

4 

MATERIAL 

4 

MN2 

A50 

c 

4 

4 

MN2 

A60 

c 

4 

GNMAT(NEL*72 1  - 

RELATES  LOCAL  AND  GLOBAL  DEGREES-OF-FREEOOM 

4 

HN2 

A70 

r 

4 

* 

nN2 

AGO 

c 

4 

I  CODE (NGNP) - 

BOUNDARY  CONDITION  CODE  (FORCE  OR 

4 

MN2 

A90 

c 

4 

DISPLACEMENT) 

4 

HN2 

500 

c 

4 

4 

HN2 

510 

A-2 


c 

♦ 

I  CRD - 

UNIT  NUMBER  FUR  CARD  READER 

MN2 

520 

c 

* 

MN2 

530 

r 

* 

IUDA - 

UNIT  NUMBER  FOR  DIRECT  ACCESS  FILE 

MN2 

540 

c 

* 

HN2 

550 

t 

♦ 

iwrt - - 

UNIT  NUMBER  FOR  PRINTER 

MN2 

560 

r 

* 

MN2 

570 

(, 

* 

I  X(  NI:Lt  27  ) - 

RELATES  LOCAL  ANO  GLOBAL  NODAL  POINTS 

MN2 

560 

r 

* 

MN2 

590 

* 

LOBCUNDBC) - 

INDEX  FOR  DISPLACEMENT  BOUNDARY  CONDITIONS 

MN2 

600 

r 

* 

MN2 

610 

<. 

* 

MTLNO(NGNP)  - 

MATERIAL  AT  EACH  NODE 

MN2 

620 

c 

* 

MN2 

650 

{ 

* 

Nlil'C - - 

NUMBER  OF  DISPLACEMENT  BOUNDARY  CONDITIONS 

MN2 

640 

t 

* 

HN2 

650 

r 

* 

Nt  L - - - 

HUMBER  OF  ELEMENTS 

HN2 

660 

L 

♦ 

HN2 

670 

r 

* 

NGLDF - 

NUMBER  OF  OEGREES-OF-FREEDOM  (GLOBAL  SYSTEM)* 

MN2 

680 

(. 

4 

4 

MN2 

690 

r 

* 

NGNP - 

NUMBER  OF  NODAL  POINTS  (GLOBAL  SYSTLH ) 

4 

MN2 

700 

(. 

4 

4 

HN2 

710 

< 

4 

NMTL - 

NUMBER  OF  MATERIALS 

4 

MN2 

720 

r 

4 

4 

MN2 

730 

/ 

♦ 

NTMP(NMTL)  - 

NUMBER  OF  MATERIAL  PROPERTIES  SPECIFIED  FOR 

4 

MN2 

740 

c 

4 

EACH  MATtRlAL 

4 

MM2 

750 

r 

4 

4 

MN2 

760 

c 

4 

NTYEL  - 

NUMBER  OF  UNIQUE  ELEMENTS 

4 

MN2 

770 

r 

4 

4 

MN2 

730 

r 

4 

S ( 2628 )  - 

ELLMENT  STIFFNESS  MATRIX  STORED  AS  ONE- 

4 

MN2 

790 

c 

4 

DIMENSIONAL  ARRAY 

4 

MN2 

BOG 

c 

4 

4 

MN2 

810 

r 

4 

THC (NEL  »72 ) - 

THERMAL  EQUIVALENT  LOADS  FOR  EACH  ELEMENT 

4 

MN2 

020 

c 

4 

(NFL  CAN  BE  DIMENSIONED  AS  '1*  FOR 

4 

MN2 

030 

r 

4 

NON-THLRMAL  PROBLEMS) 

4 

MN2 

840 

f. 

4 

4 

HN2 

650 

L 

4 

TKPEUNMTL.NTHP)  - 

TEMPERATURES  AT  WHICH  MATERIAL  PROPERTIES 

4 

MN2 

860 

C 

4 

ARE  SPECIFIED  FOR  EACH  MATERIAL 

4 

MN2 

870 

c 

4 

4 

MN2 

860 

r 

4 

TMPND(NGNP) - 

FINAL  NODAL  POINT  TEMPERATURES 

4 

MN2 

C90 

<„ 

4 

4 

MN2 

900 

4 

UX  (NGNP )  - 

MAGNITUDE  UF  FORCE  OR  DISPLACEMENT  BOUNDARY 

4 

MN2 

910 

4 

CONDITIONS  IN  THE  X-OIRECTION 

4 

MN2 

920 

1, 

4 

4 

MN2 

930 

f, 

4 

UY(NGNP)  - 

MAGNITUDE  UE  FUKCE  OR  DISPLACEMENT  BOUNDARY 

4 

MN2 

940 

4 

CQNOIT IONS  IN  THE  Y-DIRECTION 

4 

MN2 

950 

4 

4 

MN2 

960 

r 

4 

UZ(NGNP)  - 

MAGNITUDE  Op  FORCE  OR  DISPLACEMENT  BOUNDARY 

4 

MN2 

970 

C 

4 

CONDITIONS  IN  THE  Z-DIRECTION 

4 

MN2 

980 

i. 

4 

4 

MN2 

990 

r 

4 

X(NGNP)  - 

X-CGCRDINATE  (GLOBAL  SYSTEM) 

4 

tain 
n  it*. 

1000 

f. 

4 

4 

MN2 

1010 

f. 

4 

Y (NGNP)  - 

Y-COOROINATt  (GLOBAL  SYSTEM) 

4 

HN2 

1020 

A-3  ( 


o  o  o  o  o  o  ooon 


c 

c 

c 

c 

c 


c 

c 


♦  Z(NGNP)  -  Z-CUOAOINATE  {GLOBAL  SYSTEM) 

* 

*',*************•***************** 

IMPLICIT  REAL*8  (A-H,0-Z) 

LOGICAL*l  S W ( 12) 

INTEG£R*2  IX,  ICODf,  GNMA T ,  MTLNO,  LDBC 
COMMON  /  GENL  /  XINIT,  EPS,  AHBTMP, 

1  I  CLASS ,  NEL,  NGNP,  NGLOF,  NMTL,  NTYEL,  LIMIT,  NM,  NDBC 

COMHON  /NODELM/  X(1015),  Y<1015),  Z{1015>,  UX(IOIS),  UY(1015> 

1  UZ11015),  THPND ( 1015 ) ,  FBC(304S),  0BC(3045),  T3C(  1,72), 

2  1C00E ( 1015 ) ,  1 X ( 144,27) ,  GNHAT < 144, 72 ) ,MTLND{ 1015 ), LDBC ( 1015 

COMMON  /MATL  /  £(9,9,10),  F1B0RT(9),  ALFAK9)  , 

1  ALFA219 ) ,  ALFA319),  TMPEL{9,10),  NTHP(9) 

COMMON  /S1IFEX/  S(2628) 

COMMON  /  1NDX  /  INEL,  IGNP,  ILNP,IHTL 

COMMON  /  HEAD  /  HEO( 10) ,1  CRD, IWRT , IPAGE ,LINE 

OFFINE  FILE  3(55,6500,0, 10X0A ) 

lUl'A  =  3 

CALL  INPT12 

NGLOF  a  3  *  NGNP 

CHANGE  NODAL  POINT  NUMBERING  SYSTEM  TO  DEGREE-OF-FREEDOM 
NUMBERING  SYSTEM 

DO  14  INEL=1,NEL 
DO  14  J=l,24 

GNMAT( INEL ,3* J-2 I  =  3*IX ( INEL, J )-2 
GNMAHINEL,3*J-1)  =  3*  IX  ( I  NEL  ,  J)-l 
14  GNHAT ( IN EL, 3* J  )  =  3*1X(INEL,J) 


ZERO  THERMAL  LOAD  MATRIX 

IF  (1X(  1 ,27 )  .fctl.  1  .OF 
00  15  1=1, NTYEL 
00  15  J=l*72 
15  T8C ( I, J)  =  COO 


1X11,27)  .EQ.  2)  GO  TO  5 


*  MN2 

*  MN2 

*  MN2 

*  MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
HN2 

,  MN2 
MN2 
)  MN2 
MN2 
MN2 
HN2 
MN2 
MN2 
MN2 
MN2 
HN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 
MN2 


CALCULATE  ANO  STORE  UNIOUE  STIFFNESS  MATRICES 

5  IOXDA  =  7 

DO  12  I  =1, NTYEL 
00  20  INEL=1,NEL 

I F  ( IX ( INEL ,26 )  .EQ.  I)  GO  TO  6 
20  CONTINUE 

6  CALL  ELSTIF 

MRITEdUDA*  IOXDA )  (  S  ( J  ) ,  J=1 , 2628 ) 

12  CONTINUE 

FORM  FORCE  ANO  DISPLACEMENT  VECTORS  FROH  BOUNDARY  CONDITION  DATA 


MN2  1410 
MN2  1420 
MN2  1430 
MN2  1440 
MN2  1450 
MN2  1460 
HN2  1470 
MN2  1480 
HN2  1490 
MN2  1500 
MN2  1510 
MN2  1520 
MN2  1530 


A-4 


00  1  1= 1, NGLOF 

obtjh  =  o.oo 
1  FBC(I)  =  C.00 

CALL  FBCOBC 

COMBINF  STATIC  AND  THERMAL  LOADS 

IF(IX(1,27>  .EU.  I  .OR.  IX ( 1 . 27 )  .EQ.  2)  GO  TO  7 
00  17  INEL=1»NEL 
1X26  =  1 XI INEl »26 ) 

DO  17  1=1,72 

17  FBC(GNMAT(IN£L,1)  )  =  F8HGNMAT  (INEL,  1  )  J  ♦  TBC.UX26,!) 

7  00  46  J  =  l, 12 
46  SHU)  =  .FALSE. 

HRITE  PROBLEM  DATA  ON  DISK  TO  BE  PAST  TO  THE  NEXT  STEP 


WRITE! 1UDA *  1)  NEL,  NGLOF, 
1  HED,  IPAGE,  AMBTMP 


NDBC, 


1  .TMPELIJ.l),  ( E ( J , L, I ) , L=1 , 9) ,  1=1,101,  J=1,NMTL> 

2  ,  ( (  IX ( 1,J) ,J*1,27),I=1,NEL), 

3  (TMPNDtJ),  MTLND(J) ,J=1,NGNP) 


HRITE! IUDA ' 3) 
WRITE!IU0AS4) 

1  ,  SH,  NOCNV , 

HRITV! IUDA  *5) 

1 

HR  IT  t! IUDA '6) 

STOP 

END 


!X!J) -J=1,NGNP  ),  « Y! J  ) , J= 1 »NGf 
!FBCt J),J=1, NGLOF) 

(  LDE/C!  J )  ,J  =  1,NDBC) 
!DBC!J),J=1, NGLOF) 

,  (IX(J,; 

( 1GNMAT1 1,J),J=1,72),I=1,NEL) 


MN2 

1540 

MN2 

1550 

MN2 

1560 

MN2 

1570 

MN2 

1580 

HN2 

1590 

MN2 

1600 

MN2 

1610 

MN2 

1620 

MN2 

1630 

HN2 

1640 

MN2 

1650 

MN2 

1660 

MN2 

1670 

MN2 

1680 

MN2 

1690 

MN2 

1700 

HN2 

1710 

NGNP, NMTL , 

MN2 

1720 

MN2 

1730 

ALFA3! J) ) 

,MN2 

1740 

MN2 

1750 

MN2 

1760 

MN2 

1770 

J=1,NGNP) 

HN2 

1780 

MN2 

1790 

MN2 

1800 

MN2 

1810 

L) 

MN2 

1820 

MN2 

1830 

MN2 

1840 

MN2 

1850 

A-5 


oooooooooooooo 


SUBROUTINE  INPT12 


*,*******************************  IN2 

*  IN2 

SUBROUTINE  INPTI2  READS  MESH  AND  BOUNDARY  CONDITION  DATA  FROM  *  IN2 
CAROS  UR  CARO  IMAGES  AND  PRINTS  INPUT  OATA  *  1N2 

*  IN2 

THIS  SUBROUTINE  IS  CALLED  BY  -  *  IN2 

MAIN  *  1N2 

*  IN2 

THIS  SUBROUTINE  CALLS  -  *  IN2 

TITLE  *  IN2 

*  IN2 

****6**********.  *****************  IN? 


IMPLICIT  RE AL*ti  (A-K.O-Z)  IN2 

INTEGEK*2  IX,  ICUOE,  GNHAT ,  MTLND,  LOBC  IN2 

COMMON  /  GENL  /  XINIT,  EPS,  AMBTMP,  IN2 

1  ICLASS,  NEL,  NGNP,  NGLOF,  NHTL,  NTYEL,  LIMIT,  NM,  NDBC  IN2 

COMMON  /NOOELM/  X(1015),  Y'1015),  ZU015),  UX<1015),  UYT1015),  IN2 

1  UZI1015),  TMPND  ( 1015  ) ,  FBC(3C45),  0BC(3045),  TBC!  1,72),  IN2 

2  1  CODE ( 1015 ) ,  1X1144,27),  GNMAT ( 144,72 1 ,MTLND( 1015 ) ,LDBC ( 1015 )  1N2 

COMHON  /MAIL  /  E<9,9,10),  FIBORT (9) ,  ALFA1I 9) ,  IN2 

1  ALFA219),  ALFA3(9),  TMPEL(9,10),  NTHP(9)  IN2 

COMMON  /  HEAD  /  HED( 1G) «ICRD« IWRT , IP AGE, LINE  IN2 

1C  0  FORMAT! 16151  IN2 

1C01  FORMAT (215,  F10.2,  3FI0.8)  IN2 

1002  FORMAT ( F5.0,  3F10.0,  3F5.2,  3F10.0)  IN2 

1003  FORMAT (  14,  14,  12,  6F10.6,  F10.2)  IN2 

1C04  FORMAT ( 10A0 )  IN2 

1005  FORMAT (  415,  F10.2)  IN2 

2C01  FORMAT (  //  *0  MATERIAL  NO.  FIBER  ORT.  THERMAL  EXPAN.  C1N2 

IOEF.  11  THERMAL  EXPAN  COEF.  22  THERMAL  EXPAN.COEF.  33*)  IN2 

2002  FORMAT  (*0»,  4X, 15, 13X, F5 .1 , 10X,  G16.7,  13X,  Glfc.7,  13X,  G16.7  /  IN2 

1  *0*,  20X, *TEMP  Ell  E22  E33  NU12  IN2 

2  NU13  NU23  G12  G13  G23* )  IN2 

2003  FORMAT (  I9X,  4(F7.1,3X),  3(F7.2,3X),  3(F?.i,3X)  )  IN2 

2004  FORMAT!  *0  NODE  MATL  CODE  X-CUORD  Y-COORD  Z-CC0RD1N2 

I  X-OISPL/LOAO  Y-U1SPL/L0A0  Z-DISPL/LOAD  TEMPERATURE*  )  IN2 

2005  FORMAT  ( IX ,21 5, 13 , 3X.G13 .6 ,  6<2X,  G13.6))  IN2 


2006  FORMAT!  *OEL  NO  LF1  LF2  LF3  LF4  UF1  UF2  UF3  UF4  LM1  LM2  IN2 

ILM3  LM4  UM1  UM2  UM3  UM4  LB1  LB2  LB3  LB4  UB1  UB2  UB3  UIN2 
2B4  MT  ET  C*  )  1N2 

2007  FORMAT  (2X,  13,  2415,  213,  12  )  IN2 

2C0P  FORMAT! 'OOATA  FOR  THIS  STEP  IS  READ  IN  ON  UNIT',  13)  IN2 

2013  FORMAT! ‘OPROBLEM  CONSTANTS'  /  IN2 

1  »  NUMBER  OF  NODAL  POINTS',  T45,  15/  IN2 

2  •  NUMBER  OF  MATERIALS',  745,  15/  IN2 

2  •  NUMBER  OF  ELEMENTS',  T45,  V'f  1N2 

3  •  NUMBER  OF  TYPES  OF  ELEMENTS',  T45,  15/  1N2 

«,  •  AMB.  TEMPERATUr  E  *,  T37.E13.7)  IN2 


A-6 


c 

IN2 

520 

c 

READ  IN  PROBLEM  DATA 

1N2 

530 

c 

IN2 

540 

I  PAGE  =  1 

IN2 

550 

REAu ( 5  » 1 OOO )  1NDAT 

1N2 

560 

RE AO  l  INDAT  1 1004 )  HE 0 

1N2 

570 

R E AO { INOAT f 1005 )  NGNP,  NMTL,  NEL»  NTYEL,  AMBTMP 

1N2 

580 

c 

IN2 

590 

c 

PRINT  PROBLEM  DATA 

IN2 

600 

c 

IN2 

610 

CALL  TITLE 

IN2 

620 

WRITE! 1WRT#  2008 )  INDAT 

1N2 

630 

15  WRITE (IWRT, 2013)  NGNP ,  NMTl,  NEL,  NTYEL*  AMBTMP 

IN2 

640 

c 

IN2 

650 

c 

READ  IN  MATERIAL  DATA 

IN2 

660 

c 

1N2 

670 

DO  10  IMTL= 1*NMTL 

IN2 

680 

READ (I NO AT, 1001)  MTLN ,  NTMP(IMTL),  FIBURT1 IMTL)  *  ALFA1 ( IMTL ) t 

1N2 

690 

1  ALFA2UMTL),  ALFA3«  IMTL) 

IN2 

700 

NTMP 1  =  NTHP(IMTL) 

IN2 

710 

00  10  1TMP=1,NTMP1 

IN2 

720 

10  READ!IN0aT,1002)  TMPEL(IMTL.ITMP),  (fc(IMTL,JfITMP), J*l,9) 

IN2 

730 

c 

IN2 

740 

c 

PRINT  MATERIAL  DATA 

IN2 

750 

c 

IN2 

760 

CALL  TITLE 

IN2 

770 

00  50  IMTL= 1 , NMTL 

IN2 

780 

IFIL1NE  ♦.NIMP(IMTL)  .LT.  50  )  GO  TO  .1 

IN2 

790 

CALL  TITLE 

IN2 

800 

1  WRITE(IWRT*2001) 

IN2 

810 

LINE  =  LINE  .♦  3 

IN2 

820 

WR1TE(1WRT,2002)  IMTL,  FIBORT 1 IMTL) ,  ALFA1 ( IMTL) ,  ALFA2( IMTL) * 

IN2 

830 

I  ALFA3(IMTL) 

IN2 

840 

LINE  =  L INE  +  1 

IN2 

850 

NTMP1  =  NTMP(IHTL) 

IN2 

86G 

DO  50  I T MP= 1,NTMP 1 

1N2 

870 

LINE  =  LINE+1 

IN2 

880 

50  WRITE ( 1WRT ,2003 )  TMPEL ( IMTL, 1TMP) ,  ( EC IMTL, J ,  ITMP )  , J=1 ,9) 

IN2 

890 

c 

1N2 

900 

c 

READ  IN  ELEMENT  OATA 

IN2 

910 

c 

IN2 

920 

00  30  1NEL=) ,NEL 

IN2 

930 

3C  READUNDAT  ,1000)  M,  ( I  X{M,  J  ) ,  J  =  1 ,27 ) 

IN2 

940 

c 

IN2 

950 

c 

PRINT  ELEMENT  DATA 

IN2 

960 

c 

IN2 

970 

CALL  TITLE 

IN2 

980 

WRITE! IWRT, 2006) 

IN  2 

990 

DO  70  INEL=1»NEL 

IN2 

1000 

I F (LINE  .LT.  45)  GO  TO  3 

IN2 

1010 

CALL  TITLE 

IN2 

1020 

o  c*  o 


c 

c 

c 


WRITEdWRT,  2006)  IN2 

3  LINE=LINE+1  IN2 

70  WRlTEdWRT,2007)  INEL,  dXdNEL,  J) ,  J=l ,  27  )  IN2 

1N2 

READ  IN  NODAL  POINT  DATA  IN2 

IN2 

DO  40  1GNP=1, NGNP  IN2 

40  READ! I NU AT ,1003)  H,  MTLND(M) ,  IC0DE1M),  X(M),  Y1H) >  Z(H),  IN2 

1  UX  ( H ) ,  UY(M),  UZ(M),  THPND1M)  .  IN2 

IN2 

PRINT  NODAL  POINT  DATA  IN2 

IN2 

CALL  TITLE  IN2 

HR  IT  E( IWRT ,2004 )  IN2 

00  60  IGNP=1,NGNP  IN’ 

IF (LINE  .LT.  45)  GO  TO  2  1N2 

CALL  TITLE  1N2 

WRITEdWRT, 2004)  IN2 

2  LINE  =  LINE-fl  IN2 

WRITEdWRT, 2005)  IGNP,  HTLN0I1GNP),  ICODE(IGNP),  X { IGNP ) ,  Y(JGNP)IN2 

1  ,  Z(IGNP),  UX(IGNP),  UY(IGNP),  UZdGNP),  THPND(  IGNP )  1N2 

60  CONTINUE  IN? 

RETURN  IN2 

END  IN2 


1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

n?o 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 


SUBROUTINE  TITLE 

TI2 

10 

c 

TI2 

20 

c 

* 

**************  4  *************** 

♦  *  * 

TI2 

30 

c 

♦ 

* 

TI2 

40 

c 

* 

SUBROUTINE  TITLE  PRINTS  THE  HEADING  ON  EACH  PRINTED  PAGE 

* 

TI2 

50 

c 

* 

* 

TI2 

60 

c 

* 

THIS  SUBROUTINE  IS  CALLED  BY  - 

* 

TI2 

70 

c 

♦ 

INPT12 

* 

TI2 

80 

c 

♦ 

♦ 

T 12 

90 

c 

* 

****************************** 

*  *  * 

TI2 

100 

c 

TI2 

110 

IMPLICIT  REAL*8  ( A~H,0— Z ) 

TI2 

120 

COMMON  /  HEAD  /  HED( 10) , 1  CRD, IWRT, IPAGE, LINE 

TI2 

130 

100 

FORMAT  ( 1K1,  • FEM  72-DOF  GENERAL  HEXAHEDRONS  THERMO-ELASTIC, 

VARYINTI2 

140 

1G  MATERIAL  PROPERTIES,  OANA* ,  9X,  'PAGE*,  13) 

TI2 

150 

101 

FORMAT  (1H0.10A8  ) 

TI2 

160 

LIST  =  6 

TI2 

170 

IWRT  r  6 

TI2 

180 

WRITE  (LIST, 100)  IPAGE 

TI2 

190 

WRITE  (LIST, 101)  HEO 

T 12 

200 

IPAGE=  IPAGE  *1 

TI2 

210 

LINE  =  0 

TI2 

220 

RETURN 

TI2 

230 

END 

TI2 

240 

SUBROUTINE  EL ST  IF 


C 

C 

r 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 


**********4******************** 


SUBROUTINE  ELSTIF  CALCULATES  THE  ELEMENT  STIFFNESS 
ONLY  THE  UPPER  SYMMETRIC  PORTION  IS  FORMED. 

EACH  MAVRIX  IS  STORED  AS  A  ONE-DIMENSIONAL  ARRAY. 


THIS  SUBROUTINE 
MAIN 


IS  CALLEO  BY  - 


THIS  SUBROUTINE  CALLS  - 
FLAS 
BMAT 
SHPFNT 


ES2 
ES2 
4  4  ES2 
4  ES2 

MATRICES.  *  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 

*  ES2 
4  ES2 

4  4  4  4  4  4  4  ES2 
ES2 

IHPLICIT  REAL*8  (A-H.O-Z)  ES2 

INTEGER*2  IX,  1CODE,  GNMAT ,  MTLND,  LDBC  ES2 

COMMON  /  GENL  /  XIN1T,  EPS,  AMBTMP,  '  ES2 

1  1CLASS,  NEL,  NGNP ,  NGLDF,  NMTL,  NTYEL,  LIMIT,  NM,  NDBC  ES2 

COMMON  /NOOELM/  XI1015),  YI1015),  2(1015),  UX(1015>,  UY(1015)»  ES2 

1  UZ ( 1015 ) ,  TMPNDC1015),  FBCI3045),  D8CI3045),  TBC(  1,72),  ES2 

2  ICODEC1015),  IX( 144,27) ,  GNMAT (144,72 ), MTLND ( 1015) ,LDBC( 1015)  ES2 

COMMON  /MATL  /  E(9,9,10),  FIB0RT(9),  ALEAK  9) ,  ES2 

1  ALFA2 (9 ) ,  ALFA3(9)  ,  TMPLL(9,10),  NTMP(9)  ES2 

COMMON  /STIFEX/  SI2628)  ES2 

COMMON  /  STIFIN  /  0(0,6,24),  XNVCT(24),  ETM(9) ,  BA(6,72),  ES2 

1  C(3, 24 ) ,  XYZ( 24,3 ) ,  ALFTHP (6) ,  XSIK,  ETAJ,  ZTAI  ES2 

COMMON  /  INOX  /  INEL,  IGNP,  ILNP»IMTL  ES2 

DIMENSION  OSHP( 6,6) ,  BT0(72,6),  BDB(262B)  ES2 

DIMENSION  H(32),XS1(4),ETA(4), ZTA (2) ,W(4)*WW(2)  ES2 

ES2 

FORM  ELEMENT  STIFFNESS  MATRIX  BY  NUMERICAL  INTEGRATION  WITH  GAUSS  QUADES2 
-MATURE  FORMULAR,  SI72X72)  =  H*( BT*0*B )*DETJ  AT  EACH  G.P.,  4X4X2  RULE  ES2 
SET  GAUSS  PT.S  FOR  GENERAL  HEXAHEDRON  IN  NUH.  INT.  WITH  4X4X2  RULE  ES2 

ES2 

•861 13631 1594 G53D0 
•3 3998 1043584 856D0 
-XSK3J 
-XSI (4) 

.57735026918962600 
— ZTA  (2 ) 


XSI (4) 

XSI(3) 

XSII 2) 

XSI  ( 1) 

ZTAI 2) 

ZTA(l) 

00  10  1=1,4 
10  ETAI  I)  =  XSKI) 

FORM  WEIGHING  COEFFICIENTS  H(32J  AT  GAUSS  POINT 

W I U =.347854845 13745400 
WI2)=. 6521451 54062546DC 


ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 

ES2 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

27C 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


A-1Q 


o  o  o  o  ooo  o  o  o 


W(3)  =  W  (2  1 
W(  4)  =  W<1) 

WW( 1 1  =  I. 00 

y..(2)  =  l.oo 

00  15  1  =  1*4 
00  15  J=l,4 
00  15  K=l*2 

H  =  K  ♦  2* ( J  -  1)  ♦  0* ( I  -  11 
15  H(H)  =  M ( I  1 *W ( J )*WW(K  > 

C 

C  FORM  NUDAL  PT.  COORD. S  MATRIX  XYZ  AMO  C  FOR  J(3X3) 
C 

DO  20  1=1,24 
L  =  1 X ( INEL, I ) 

XYZ(I,1)  =  XC  L 1 
XYZ  ( 1 ,2 1  =  Y(U 
20  XYZ( 1,3)  =  Z(L) 

CALCULATfc  ELASTIC  PROPERTIES 


CALL  ELAS 
00  25  NL=1 ,2628 
25  S ( NL 1  =  0.00 
DO  100  K=1 ,4 
DO  100  J=l,4 
00  100  1=1,2 
M  =  I  2*  ( J  - 
XSIK  =  XSKK) 
ETAJ  =  ETA(J) 
ZTAI  =  ZTA(I) 


J ( 3X24 )*XYZ <24X31 


11  ♦  8*(K  -  11 


FORM  B  HATRIX 

CALL  BMAT<I,J,K,DETJ) 

I F ( 1 X( INEL ,27 1  .EQ.  1  1  GO  TO  1 
CALL  SHPFNT 

1 F (  IX < INEL, 27)  .EQ.  3  1  GO  TO  1 

FORM  3-0  ELASTIC  MATERIAL  PROPERTIES  ARRAY  <USED 
PROPERTIES  VARY  HITH1N  AN  ELELMENT) 


00  110  N  =  l,6 
DO  110  L=l ,6 
OSHPlL.N)  =  000 

00  110  1LNP=1,24 
110  DSHP (L,N 1  =  OSHPi L,N) 
GO  TO  4 
1  DO  120  N=l,6 
00  120  L=1 ,6 
l?f  OSHP (L ,N 1  =  D(L,N, 1 1 
4  CONTINUE 


ONLY  IF  ELASTIC 


D(L,N,1LNP)  *  XNVCm 


ES2 

520 

ES2 

530 

ES2 

540 

ES2 

550 

ES2 

560 

ES2 

570 

ES2 

560 

ES2 

590 

ES2 

600 

ES2 

610 

ES2 

620 

ES2 

630 

ES2 

640 

ES2 

650 

ES2 

660 

ES2 

670 

ES2 

6B0 

ES2 

690 

ES2 

700 

ES2 

710 

E52 

720 

ES2 

730 

ES2 

740 

ES2 

750 

ES2 

760 

ES2 

7/0 

ES2 

760 

ES2 

790 

ES2 

800 

ES2 

810 

ES2 

820 

ES2 

830 

ES2 

840 

ES2 

850 

ES2 

860 

ES2 

870 

ES2 

080 

ES2 

890 

ES2 

900 

ES2 

910 

ES2 

920 

ES2 

930 

ES2 

940 

ES2 

950 

ES2 

960 

ES2 

970 

ES2 

980 

ES2 

990 

ES2 

1000 

ES2 

1010 

ES2 

1020 

A-ll 


o  o  o  o  O  o  o 


DO  SO  N=l,72 
DO  80  L-J.6 
BTP(NtO  =  O.DO 
DO  00  NN=1  tb 

80  BTO( N.L )  =  BT0(N,L)  +  BA(NN,N)*DSHP(NN,L) 

1FI  IXUNEL,27)  .EQ.  1  .OR.  IX(INEL,27)  .E<l.  2)  GO  TO  5 

CALCULATE  THERMAL-EQUIVALENT  LOAD  VECTOR  FOR  EACH  ELEMENT  (THERMAL 
PROBLEM  ONLY) 

TMP  =  000 
DO  130  I LNP=lt 24 

130  TMP  =  TMP  ♦  THPNDUXUNEL.ILNP))*  XNVCT(ILNP) 

TMP  =  TMP  -  AMBTMP 
1X26  =  1 X ( 1NEL 1 26 ) 

DO  140  L=1 , 72 
DO  140  N=l,6 

140  TBC( 1X26  »L)  =  TBC(1X26,LJ  ♦  THP*ALFTMP(N >*BTD( L»N) *H (M)*D£T J 
5  NL  =  0 

FORM  TRIPLE  MATRIX  PRODUCT 

DO  90  N= 1  *  72 
DO  90  L=Nf 72 
NL  =  NL*  1 
BOB(NL)  =  O.DO 
DO  90  NN=1.6 

90  BDL(NL)  =  BOB (NL)  ♦  BTU(N,NN)*UA(NNtU 
NL=0 

DO  100  N*1 »  72 
DO  100  L=N,72 
NL  =  NL  ♦  1 

100  S (NL )  =  S(NL)  ♦  HIM)  *  DETJ+BOBINL) 

RETURN 

ENO 


ES2  1030 
ES2  1040 
ES2  1050 
ES2  1060 
ES2  1070 
ES2  1080 
ES2  1090 
ES2  1100 
ES2  1110 
ES2  1120 
ES2  1130 
ES2  1140 
ES2  1150 
ES2  1160 
ES2  1170 
ES2  1180 
ES2  1190 
ES2  1200 
ES2  1210 
ES2  1220 
ES2  1230 
ES2  1240 
ES2  1250 
ES2  1260 
ES2  1270 
ES2  1280 
ES2  1290 
ES2  1300 
ES2  1310 
ES2  1320 
ES2  1330 
ES2  1340 
ES2  1350 
ES2  1360 
ES2  1370 
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SUBROUTINE  ELAS 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


********************************* 

* 

*  SUBROUTINE  ELAS,  IN  CCNJUCTION  WITH  OHAT,  CALCULA.ES  THE 

*  ELASTIC  MATRIX  FOR  EACH  ELEMENT 

* 

*  THIS  SUBROUTINE  IS  CALL  SO  BY  - 

*  ELSTIF 

* 

*  THIS  SUBROUTINE  CALLS  - 

*  OMAT 

* 

********************************* 


IMPLICIT  REAL*8  CA-H,0-Z) 

INTEGER*2  IX,  ICOOE,  GNMAT,  MTLNO,  LDBC 
COMMON  /  GENL  /  XINIT,  EPS,  AHBTHP, 

i  i class ,  nel,  ngnp,  nglof,  nmtl»  ntyel,  limit,  nm,  ndbc 

COMMON  /NODELM/  XC1015),  YC1015),  ZC1015),  UX(1015),  UYC1015), 

1  UZC1015),  TMPNOl 1015 ) ,  FBCC304S),  DBCC3045),  TBCI  1,72), 

2  I  CODE C 1015 ),  IXC144.27).  GNNATU44,72 )  ,HTLNDC  1015 )  ,LDBC C 1015) 

COMMON  /MATL  /  EC9,9,10),  FIB0RTC9),  ALFA1I9), 

I  ALFA2  (9  )  ,  ALFA3C9),  TMPEU9.10),  NTHPC9) 

COMMON  /  INDX  /  INEL,  IGNP,  ILNP*IMTL 

COMMON  /  STIFIN  /  016,6,24),  XNVCTC24),  ETMI9),  0AC6.72), 

1  C( 3, 24 ) ,  XYZC 24,3 ) ,  ALFTHP(6) ,  XSIK,  ETAJ,  ZTAI 
’  IFC  IX ( INEL, 27)  .EQ.  1  .OR.  1XUNEL,27>  .EQ.  3)  GO  TO  31 
IF (  IX ( INEL, 27 )  .EQ.  2  )  GO  TU  2 
NTHPI  =  NTMPC IXCINEL,25) ) 

IFC  NTHPI  .EQ.  1  )  GO  TO  31 

DO  10  ILNP=1, 24 

IMTL  =  MTLNO  { IX(1NEL,1LNP)) 

1FCIMTL  .EQ.  0  )  IMTL  =  IXCINEL,25) 

I  GMT  =  1 X ( INEL, ILNP) 

IF ( TMPNDCIGNT )  .LT.  TMPELC IMTL,1)  )  GO  TO  5 
IFC  TMPNOC IGNT)  .GE.  THPELC IMTL,NTHP{ IMTL) )  )  GO  TO  6 

NTHPM1  =  NTMPCIMTL)  -  1 
00  2C  11=1 ,NTMPMl 

IFC  TMPNOC IGNT). GT.  TMPEL C IMTL , II )  .AND.  TMPNDCIGNT J.LE. 

1  TMPELCIMTL»I1+1)  >  GO  TO  4 

20  CONTINUE 
5  00  30  1=1,9 
30  ETMCI)  =  E  t IMTL, I , l ) 

GO  TO  1 


6  00  40  1=1 
40  ETH(l)  = 
GO  T0  1 
4  DIFTP1  = 
0IFTP2  = 
RATDIF  = 


»9  . 

EC1HTL, I, NTMPCIMTL) > 

THP£LCIMTL,II*1)  -  TMPLLC IMTL, II 
TMPNDCIGNT)  -  TMPEL C 1  HU , II ) 
01FTP2  /  DIFTP1 


) 


EL2 

10 

EL2 

20 

♦ 

EL2 

30 

* 

EL2 

40 

EL2 

50 

EL2 

60 

EL2 

70 

EL2 

BO 

EL2 

90 

EL2 

100 

EL2 

110 

EL2 

120 

EL2 

130 

EL2 

140 

EL2 

150 

EL2 

160 

EL2 

170 

EL2 

180 

EL2 

190 

EL2 

200 

EL2 

210 

EL2 

220 

EL2 

230 

EL2 

240 

EL2 

250 

EL2 

260 

EL2 

270 

EL2 

280 

ELZ 

290 

EL2 

300 

EL2 

310 

EL2 

320 

EL2 

330 

EL2 

340 

EL2 

350 

EL2 

360 

ELZ 

370 

EL2 

380 

EL2 

390 

EL2 

400 

ELZ 

410 

EL2 

420 

EL2 

430 

EL2 

440 

EL2 

450 

EL2 

460 

EL2 

470 

EL2 

480 

EL2 

490 

EL2 

500 

EL2 

510 
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50  ETM?I|X=1E  C  IHTU.I  .II»  ♦  RATDIF  *  CE< IMTL. I. 11*11 
’  CALL  DMA! 

10  CONTINUE 
RETURN 

31  IMTL  =•  I  Xi INEL.25 ) 

1LNP  =  1 
DO  60  1=1.9 

6C  ETMU1  =  ECIMTLtI.il 
CALL  DMAT 

return 

2  DO  70  ILNP=1,24 

1HTL  =  MTLND(IX(INEL,ILNP» 1 
I F  ( I MT  L  .ECJ.  0  1  IMTL  =  IXUNEL.25) 

DO  80  1=1.9 

80  ETM(I)  =  E  C IMTL .1.11 
70  CALL  DMAT 
RETURN 
END 


EL2 

520 

EL2 

530 

EL2 

540 

EL2 

550 

EL2 

560 

EL2 

570 

EL2 

580 

EL2 

590 

EL2 

600 

EL2 

610 

EL2 

620 

EL2 

630 

EL2 

640 

EL2 

650 

EL2 

660 

EL2 

670 

EL2 

680 

EL2 

690 

EL2 

700 
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SUBROUTINE  BMATI I , J,K ,DETJ) 

**!»**********«»**********»»******* 
*  * 

*  SUBROUTINE  8MAT  FORMS  THE  B  MATRIX  WHIC:;  IS  USED  IN  CPNJUCTION  ♦ 

*  WITH  THE  ELASTIC  MATRIX  TO  FORM  THE  STIFFNESS  MATRIX  * 

*  * 

*  THIS  SUBROUTINE  IS  CAELEO  BY  -  * 

*  ELSTIF  * 

*  * 
********************************** 

IMPLICIT  REAL*8  (A-H.O-Z) 

1NT  EGER*2  IX,  1CUUE,  GNMAT,  HTLND,  LOBC 
COMMON  /  GENL  /  XINIT,  EPS,  AMBTMP, 

1  ICLASS »  NEL,  NGNP ,  NGLDF,  NMTL,  NTYEL,  LIHIT,  NM,  NDBC 

COMMON  /NOOELM/  X(1015),  YI1015),  2(1015),  UXI1015),  UYC 1015 ) , 

1  UZ ( 101 5) ,  TMPNO ( 101 5 ) ,  FBCI3045),  DBC(3045),  TBCI  1,72), 

2  1C00E ( 1015 ) ,  I X ( 144,27) ,  GNMAT<144,?2 ) »MTLND( 1015 ) ,LDBCI 1015 ) 

COMMON  /MAIL  /  £19,9,10),  FIB0RTI9),  ALFAK9), 

1  ALFA2 ( 9) ,  ALFA3 (9) ,  TMPEL<9,10),  NTMPI9) 

COMMON  /  STIFIN  /  016,0,24),  XNVCTI24),  ETH(9) ,  BA(6,72), 

1  C( 3, 24 ) ,  XYZ( 24,3 ) ,  ALFTMP (6) ,  XS1K,  ETAJ,  ZTA1 
COMMON  /  1NDX  /  INEL,  1GNP,  ILNP.IMTL 
DIMENSION  DJI  3, 3  )  ,  OJI ( 3,3 ) ,XSI 14) ,  ETAI4),  ZTAI2) 

XSIIK)  =  XSIK 
ETA  I J)  =  ETAJ 
ZTA(l)  =  ZTAI 


FORM  C  MATRIX 


1 


C(i,l)  = 
l 

Cl  1,2)  = 

1 

C 1 1, 3)  = 

1 

CI1.4)  = 
l 

C 1 1 , 5)  = 
I 

Cl  1,6)  = 

1 

C 1 1,7)  = 

1 

C 1 1,8 )  = 


C 1 1 ,9)  = 
C  1 1, 10)  = 
C 1 1, 11  )  = 
C 1 1 , 12  )  = 


11.00  -  ETAI J )  )*(  l.DO  -  ZTAm)*llO.DO  ♦  18.D0*XSI(K)  - 
27.00*XSI IK)**2  -  9.00*ETA(JJ**2) 

11.00  -  ETAI J ) ) *1 1.00  -  ZTA(I))*(B1.D0*XSI(K) **2 
-IB.OOAXSIIK)  -  27.00) 

11.00  -  ETAI J ) ) *( 1.00  -  ZTAI I ) )*I27.D0  -  18.D0*XSI(K)  • 
B1.00*XSIIK)**2l 

11.00  -  ETAI  J ) )  *1 1*00  -  ZTA(I))*(27.D0*XSI(K)**2  ♦ 
9.U0*ETAIJ)**2  ♦  18.D0*XSIIK.)  -  10.00) 

(1.00  -  F.TAI  J ) )  *(  l.DO  «■  ZTAI  I )  )*(  10.00  ♦  IB.D0*XSI(K)  * 
27.00*XSI(K)**2  -  9.00*ETA( J)**2) 

(1.00.-  ETAI  J )  )*(  1.00  «•  ZTA(I))*{81.U0*XSHK)**2 
-1P.OO*XSI(X)  -  27.00) 

(1.00  -  ETAI J ))*( 1.00  «■  ZTAI I ) )* (27.00  -  18.D0*XSI(K)  - 
81.D0*XSI(K)**2) 

(l.DO  -  ETAI J))*(1.D0  ♦  ZTA(I))*|27.D0*XSI(K)»*2  ♦ 

9 ,DO*ETA I J)**2  ♦  18 .00*XSI I K )  -  10.00) 

(l.DO— 3.D0*ETA< J)) ♦ 1 1 .UO-ZTA 1 1 ) ) *< 9.00*ETA I J  )*»2-9.D0) 

I 1.00*3.00*ETA( J) )*< 1 .DO-ZTA (X))*(9.00*ETA( J )**2-9.D0) 
-Cl  1,9) 

-CO, 10) 


BM2 

10 

BH2 

20 

BM2 

30 

BH2 

40 

BM2 

50 

BM2 

60 

BM2 

70 

BM2 

80 

BM2 

90 

BM2 

100 

BM2 

110 

BM2 

120 

BM2 

130 

BM2 

140 

BM2 

150 

BM2 

160 

BM2 

170 

BM2 

180 

BM2 

190 

BM2 

200 

BM2 

210 

BM2 

220 

BM2 

230 

BM2 

240 

BM2 

250 

BM2 

260 

BM2 

270 

BM2 

280 

BM2 

290 

BM2 

300 

BM2 

310 

BM2 

320 

BM2 

330 

BM2 

340 

BM2 

350 

BM2 

360 

BM2 

370 

BM2 

380 

BM2 

390 

BM2 

400 

BM? 

410 

BM2 

420 

BM2 

430 

BM2 

440 

BM2 

450 

BM2 

460 

BM2 

470 

BM2 

480 

BM2 

490 

BM2 

500 

BM2 

510 
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C  ( 1 , 13  )  = 
C(l,14)= 
C ( It  15)  = 
C ll, 16)= 
C ( I* 17)= 

1 

C ( It  18  )  = 

1 

C(l,19)= 

1 

C ( It  20 )  = 

1 

C( 1,21 )= 

1 

C(l, 22)= 

1 

C 1 1 ,23  )  = 

1 

CO, 24)  = 
1  - 

CI2.1I  * 

1 

C { 2, 2)  = 
C ( 2,3)  = 
C ( 2,4)  = 

1 

C(2,5»  = 

1 

C(2,6)  = 
C ( 2, 7)  = 
C ( 2, 8 )  = 

1 

C ( 2,9)  = 

1 

C (2, 10  )  = 

1 

C(  2, 11  )  = 

1 

C ( 2, 12  )  = 

1 

C ( 2, 13)= 

1 

C ( 2, 14  )  = 

1 

C  ( 2, 15  )  = 

1 

C!2,16)= 

1 

C  ( 2, 17)  = 

1 

C (2, 18  )  = 


«  1*00-3. 00*ETA(J)  )*(1.D0*ZTA(I>)*(9.D0*ETA{  J)**2-9.D0)  BM2  520 
(l.DO*3.DO*ETA(J))*(l.DO*ZTA(I))*(9.DO*ETA(J)**2-9.DO>  BH2  530 
-C(l, 13)  BM2  540 
-CO,  14)  BM2  550 
(1.00  +  ETA( J) )*( 1.00  -  ZTA  ( 1 ) ) * 00.00  ♦  18.00AXSKK)  -  BM2  560 
27.00*X$I (K)**2  -  9.00*ETA( J )**2 )  BM2  570 
(1.00  ♦  t7A( J))*( 1.00  -  ZTA(I))*(81.D0*XS1(K)**2  BM2  580 
-18.00*XSI (K)  -  27.00)  BM2  590 
(1.00  ♦  E TA( J ) ) *( 1.00  -  ZTA ( 1  ))* (27.00  -  18.D0*XSJ(K>  -  BH2  600 
81.00*XS1(K)**2)  BM2  610 
( 1 .00  ♦  tTA( J ))*( 1.00  -  ZTA(1))*(27.D0*XS1(K)**2  ♦  BM2  620 
9.00*ETA(J)**2  ♦  18.00*XSI(K)  -  10.00)  BM2  630 
(1.00  ♦  £TA{ J ) ) ♦( 1.00  ♦  ZTA ( I ) ) *  1 10.00  ♦  18.D0*XSI(K)  -  BM2  640 
27.00*XS1(K)*»2  -  9.D0*ETA(J)*^2)  BM2  650 
(1.00  ♦  ETA( J))*( 1.00  +  ZTA(1))*(81.DO*XSICO**2  BH2  660 
-18.00*XSI (K)  -  27.00)  BH2  670 
(1.00  ♦  ETA(  J  )  )*(  1.00  +  ZTA  I *  )  )*  ( 27.  DO  -  18.00*XSI(K)  -  BM2  680 
81.00*XS1(K)**2)  BH2  '  690 
(1.00  ♦  ETA( J))*( 1.00  ♦  ZTA(I))*(27.00*XSI(K)^*2  ♦  BM2  700 
9 ,D0*ETA ( J)**2  ♦  18.D0*XSI(K)  -  10. DO)  BH2  710 
(1.00  -  XSI  ( K  )  )♦( 1.00  -  ZTA(  I ) ) ♦  ( 10.00  ♦  18,DO*ET.KJ)  -  BH2  720 
9.D0*XSI (K )**2  -  27.D0^8TA(J)**2)  8H2  730 
(1.00  -  3 .00* XSI ( K) ) * ( 1.00  -ZTA( 1 ) )*I9.D0*XS1(KJ ♦♦2-9.D0) BM2  740 
(1.00  ♦  3.00*XS1(K))*(1.D0  — ZTA( 1 ) )♦ (9. D0*XSI(K ) •♦2-9.00 )BM2  750 
(1.00  ♦  XSI (K ) ) ♦( 1.00  -  ZTA( I))*(10.00  ♦  18.D0+ETA( J)  -  BM2  760 
9.00*XSI(K)**2  -  27.00*ETA( J)**2)  BM2  770 
(1.00  -  XSKK ) )*( 1.00  ♦  ZTA ( I ) )• ( 10.00  ♦  18.D0»ETA(J)  -  BM2  780 
9.00*XSI (K)«*2  -  27.D0*ETA( J ) **2  J  BM2  790 
( 1 .DO  -  3 . 00* XS1(K))*(1 .00  ♦ZTA(I) )*{9.D0*XS1 (K ) **2-9.00) BM2  800 
11.00  ♦  3. DO ♦XSI (K) ) * (1 .DO  ♦ZTA(I))*(9.D0*XSI(K)**2-9.D0)BM2  810 
(1.00  ♦  XSKK ))♦( 1.00  +  ZTA ( 1 ) )♦ ( 10.D0  ♦  18.D0*ETA(J)  -  BM2  820 
9.D0*XSI (K)**2  -  27.00*ETA(JJ**2)  BM2  830 
( l .00  -  XSKK ) )♦( 1.00  -ZTA{I))*(8i.D0*ETA(J)**2  -  BK2  840 
18.00*ETA( J)  -  27.00)  BM2  850 
(1.00  -  XSKK  )  )♦(  1.00  -  ZTA(  I )  )*(27.D0  -  18.D0*ETA(J)  -  BM2  860 
81.00*ETA( J)**2I  BM2  870 
(1.00  ♦  XSKK  )  )♦  ( 1.00  -ZTAU  } }♦ (81 ,DQ*ETA{ J )**2  -  BM2  880 
18 .DO*ETA ( J)  -  27.00)  BM2  890 
(1.00  ♦  XSKK  )  )♦(  1.00  -  ZTA ( 1 )  )*  (27.00  -  1B.D0*ETA(J)  -  BM2  900 
Bl.D0*ETA(J)**2)  ,  BM2  910 
(1.00  -  XSI  (K )  )♦(  l.DO  ♦ZTA(1))*(81.D0*ETA(J)  **2  -  BM2  920 
1B.D0*ETA( J)  -  27.00)  BM2  930 
(1.00  -  XSKK) )♦( 1.00  ♦  ZTA( 1 ))♦ (27.00  -  18.00*ETA(J)  -  BM2  940 
8 1 .00* ETA ( J) **2 )  BH2  950 
(1.00  ♦  XSKK  )  )*(  1.00  »ZTA(  I )  )*( 81 .DO*ETA ( J  )**2  -  BH2  960 
18.D0*ET A ( J)  -  27.00)  BM2  970 
(1.00  ♦  XSKK )  )*(  1.00  ♦  ZTA  ( I )  )♦  (27.00  -  18.D0*ETA(J)  -  BM2  980 
81 .DO*ETA ( J) **2 )  BM2  990 
(1.00  -  XSKK ) ) ♦( 1.00  -  ZTA(I))*(27.D0*ETA( J)**2  ♦  BM2  lOOO 
9.D0*XSI (K)**2  ♦  18.00*ETA(J)  -  10. DO)  BM2  1010 
-C (2 ,2 )  BM2  1020 
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o  O  O  O  O  O 


C  ( 2  *  19 )  =  -C (2  *3 )  BH2 

C(2,20)=  (i.DO  ♦  XSI ( K ) ) * ( 1 .00  -  ZTA C 1 ) )* (27.D0«ETA ( J )**2  ♦  BM2 

1  9.D0*XSI (K)**2  ♦  18.D0*ETA(J)  -  10. DO)  BH2 

C(2,2 1)  =  (1.00  -  XSIIK ) )*( l.DO  ♦  ZTA( I ) ) * <27. DO*ETA ( J)**2  ♦  BH2 

1  9.D0*XSI (K)**2  ♦  18.00*£TA(J)  -  10. DO)  BH2 

C ( 2»  22 ) =  (1.00  -  3. DO* XSI(K) >♦(1.00  *ZTA( I ) )* (9. DO-9.DO*XSI ( K) **2 )BH2 
C(2,23)=  (l.DO  ♦  3.D0*XSI(K))*(1.D0  ♦ZTA(l) )* ( 9. DO-9 .DO*XSI ( K) **2 ) BH2 
C ( 2, 24) =  (l.DO  ♦  XS1 (K ) ) *( 1 .DO  +  Z7A< I ) ) * ( 27»D0*ETA t J) **2  ♦  BH2 

1  °.DO*XSI (K)**2  ♦  18.D0*ETA(J)  -  10. DO)  BH2 

C ( 3*  1 )  =  (l.DO  -  XSI ( K ) ) * ( l.DO  -  ETA ( J) )* ( 10. DO  -  9. D0*XSI < K )**2  >BH2 
1  -9 .00*E  TA( J )**2 )  BM2 

C  {  3, 2 )  =  (1.00  -3 .DO* XSI (K  ) ) * ( l.DO  -  £TA(J))*(9.D0*XSI IK)**2-9.D0)BM2 
C(3,3)  =  (l.DO  +3 .DO* XSI ( K ) ) * ( 1.00  -  ETA ( J) )* ( 9.D0*XS1 (K 1**2-9.D0) BM2 
C ( 3,4}  =  (l.DO  ♦  XSI (K))*( l.DO  -  ETA( J) )*( 10. DO  -  9.D0*XSI (K )**2  BM2 


1 


-9.D0*ET  A ( J) **2 ) 

DO  26  N=l,4 
26  C(3,N*4)  =  -C ( 3f N ) 

C(3,9)  =  (1.00  — 3. DO* ETA (J ) ) * ( 1.00 
C(3,10)=  (l.DO  ♦3.U0*ETA1J))*( l.DO 
C ( 3* 11 »=  (l.DO  -3.D0*ETA(J))*( l.DO 
C  (  3,  12  )=  (l.DO  «-3.00*6TA(J))*(  1.00 
00  27  N=9,12 


BH2 

BH2 

BM2 


-  XSI ( K) )* (9.D0*ETA( J)**2— 9.D0)BM2 

-  XSI ( K) )* ( 9. DO*E TA ( J )**2-9 .00 ) BH2 

♦  XSI(K) )*<9.D0*ETA(J)**2-9.D0)BH2 

♦  XSI ( K) )* (9.D0*ETA(J ) **2—9.00) BM2 

BH2 
BM2 

(l.DO  -  XS1(K))*( 1.00  ♦  ETA ( J) )*( 10.D0  -  9.D0*X5I (K )**2  BH2 
-9 .DO* ETA  I J) **2 )  BH2 

(l.DO  -3.00*XSI(K)1*( l.DO  ♦  ETA ( J ) )*(9.D0*XSUK)**2-9.D0) BM2 
(l.DO  +3 .00* X SI (K ) ) * ( 1 .00  *  ETA ( J) )* (9. DO* XSI (K )**2- 9.D01BH2 
(l.DO  ♦  XSI (K ) )*( 1.00  ♦  ETA(J))*(10.D0  -  9.D0*XSI ( K)»*2  BH2 
-9.D0*ET  A ( J) **2 )  BH2 

0H2 
BM2 
BH2 

CALCULATE  JAC08IAN  HATR1X  J(3X3)  =  C(3X24)  *  XYZ(24X3I  AT  32  PT.  BH2 

BM2 


27  C(  3fN+4)  «=  -C  (  3»  N  ) 
C  ( 3» 17  )  = 

1 

C(  3, 18  )  = 

C ( 3« 19  )  = 

C(  3.20  )  = 

1 

00  28  N=17»20 

28  C ( 3»N+4)  =  -C(3,N) 


DO  30  11=1,3  BM2 

00  30  KK*1 ,3  BH2 

D J ( 1 1 ,KK )  =  0 .DO  BM2 

DO  30  JJ=1»24  BM? 

30  DJ ( 1 1 ,KK )  =  DJ( 1 1 , KK)  ♦  C(1I,JJ)  *  XYZ(JJ,KK)  /64.D0  B*2 

BM2 

FORM  INVERSE  J  MATRIX  DJI (3X3)  FOR  COORDINATE  TRANSFORMATION  BM2 

BH2 

DETJ  =  DJ(1,1)*(DJ(2,2)*DJ(3,3)  -  DJ( 2 ,3 )*DJ ( 3,2 )  )  BM2 

1  *DJ( 1,2)*(DJ(2,3) *DJ (3,1)  -  0J(2 ,1 )*DJ ( 3,3 ) >  BH2 

2  ♦ DJ( 1,3) *(0J( 3,2) *DJ( 2,1 )  -  DJ( 2 ,2 )*DJ ( 3,2) )  BM2 

DJI (1,1)  =  (DJ ( 2 , 2 ) *DJ ( 3,3 )  -  DJI  2 ,3) *DJ( 3,2 ) )  /DETJ  3M2 

DJI ( 1,2)  =  (DJI  3,2) *0J (1,3)  -  DJ ( 3 ,3 ) *0J (1,2) )  /DETJ  BH2 

DJI ( 1 ,3 )  =  (DJ( 1,2)*UJ(2,3)  -  DJI  1,31*0.1(2, 2) )  /DETJ  BHZ 

DJI (2, 1)  =  (OJ (2,31 *DJ (3,1)  -  DJ ( 2 , 1 )*DJ (3,3) )  /DETJ  BH2 

DJI (2,2)  =  (DJI  3, 3) *0J (1,1)  -  0J( 3 , l ) *DJ (1,3))  /DETJ  BM2 

DJI (2,3)  =  (DJI  1 , 3 ) *UJ (2,1)  -  DJ(1,1)*DJ(2,3))  /DETJ  BM2 
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1200 
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DJI ( 3  t 1 ) 
DJI (3.2) 
DJI(3,3) 
FOPH  MATRIX 
DO  40  N  = 
DO  4C  L= 
40  BAIN,!.} 
liil  50  N  = 
l  =  IN  - 
BA(1 ,N) 
BAI4.M) 
50  BAI5.N) 
DO  60  N 
L  =  IN  - 
BA(2»N) 

B A ( 4  »N  J 
60  BAI6.N) 
DO  70  N= 
l  =  (N  - 
BAI3.NI 
BAI6.N) 
70  BAI6.N) 
RETURN 
END 


=  (DJI  2. 1  )»DJ (3.2  )  -  DJI  2 .2 ) *DJ (3.1) )  /DETJ 
=  (OJ (3.1) *D J (1.2)  -  DJI  3 .2 ) *DJ( 1,1))  /DETJ 
=  (0 J ( 1  *  1)*UJ(2,2)  -  DJ(1.2)*DJ(2,m  /DETJ 
0(6X72).  WHERE  (B)  =  (BA) 

1.6 
1.72 
=  0.00 
1.7C.3 

1) /3  ♦  1 

=  (DJK  1, 1)*C(  l,L)*DJI(l,2)*C(2,L)*DJHl,3)*C(3,l)  )/64 
=  (DJI(2.1)*C(1,L) +DJ1 (2,2)*C(2.L)+0JI(2,3)TC(3,L))/64 
=  (0JI(3.1)*C<  l.D+OJI  (3,2 )*C ( 2 »L )+DJ I(3«3)*C(3,L)  1/64 

2.71.3 

2) /3  ♦  1 

=  (l)JI  (  2. 1  )*C  ( 1  »L )  +DJI ( 2,2 )*C ( 2»L ) +DJ  1(2,3)»C(3,L)  )/64 
=  ( OJ 1(1,1) *C(1»L) +UJ I(l,2)*C(2»L)+0JI(l,3)*C(3,L))/64 
=  (DJI ( 3. 1 ) *C ( 1 , L ) +OJI (3,2)*C(2,L)+DJI(3,3)*C(3,L))/64 

3.72.3 
31/3  ♦  1 

=  ( D J  1(3.1 )*C( 1,L) +DJ I( 3,2 )*C ( 2,L ) +DJ I ( 3 ,3) *C ( 3, L ) 1/64 
=  (0JI(1,1)«C( l,L)*DJI(l,2)*C(2,L)<DJl(l,3)*C(3,L))/64 
=  (0J1 ( 2, 1 )*C ( 1,1 )+DJI ( 2, 2 )*C( 2,L )+DJI ( 2 ,3)*C <  3,L ) )/64 


BM2 
BM2 
BH2 
BH2 
BM2 
BM2 
BM2 
BM2 
BM2 
.DO  BM2 
.DO  BM2 
.DO  BM2 
BM2 
BM2 
.DO  BM2 
.DO  BH2 
.DO  BH2 
BM2 
3H2 
.DO  BH2 
.00  BM2 
.00  BH2 
BM2 
BH2 
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SUBROUTINE  SHPFNT 

****************************** 

SUBROUTINE  SHPFNT  CALCULATES  THE  SHAPE  FUNCTION  VECTOR 

THIS  SUBROUTINE  IS  CALLED  BY  - 
ELSTIF 

****************************** 
IMPLICIT  REAL*8  (A-H,0-Z) 

COMMON  /  STIFIN  /  0(6t6,24),  XNVCT(24),  ETMI9)t  BA(6,72>, 

1  C(3,24),  XYZ(24,3),  ALFTHP (6) ,  XSIK,  ETAJ,  2TAI 

XP  =  1-DO  ♦  XSIK 

XM  =  1.00  -  XSIK 

YP  =  1.00  ♦  ETAJ 

YM  =  1.00  -  ETAJ 

ZP  =  1.00  ♦  ZTAI 

ZM  =  1.00  -  ZTAI 

XP3  =  1.00  ♦  3.00AXSIK 

XM3  =  1.00  -  3.00*XSIK 

YP3  *=  l.DO  *  3.U0*ETAJ 

YM3  =  1.00  -  3.D0*ETAJ 

XNVCT(l)  »  XM*YM*ZM*(9.00*(XSIK**2*ETAJ**2)  -  10.00J  /  64. 

XNVCT ( 2 )  =  9. D0*XM3*YM*ZM*  ( i.00-XSIK**2)  /  64. DO 

XNVCT(3)  =  XNVCT ( 2  )  »  XP 3  /  XM3 

XNVCT ( 4 )  =  XNVCT(l)  *  XP  /  XM 

XNVCT(  5 )  =  XNVCT  (U  *  ZP  /  ZM 

XNVCT(6)  =  XNVCT ( 2  )  ♦  ZP  /  ZM 

XNVCT (7)  =  XNVCT <3J  ♦  ZP  /  ZM 

XNVCTCB)  =  XNVCT ( 4 )  ♦  ZP  /  ZM 

XNVCT(9)  *  9. DO  ♦  XM*YM3*ZM*(  1  ,D0-ETAJ**2>  /  64. DO 

XNVCT(IO)  =  XNVCT (  9)  ♦  YP3  /  YM3 

XNVCT ( 11 )  =  XNVCT (  9)  *  XP  /  XM 

XNVCT ( 12 )  =  XNVCT (11)  *  YP3  /  YM3 

XNVCT  (13)  =  XNVCT  (  9)  *  7.P  /  ZM 

XNVCT ( 14 )  =  XNVCT ( 13)  *  YP3  /  YH3 

XNVCT ( 15 )  =  XNVCT ( 13)  *  XP  /  XM 

XNVCT ( 16)  =  XNVCT (14)  *  XP  /  XM 

XNVCT (17)  =  XNVCT (  1)  *  YP  /  YM 

XNVCT(IB)  =  XNVCT (  2)  *  YP  /  YM 

XNVCT ( 19 )  =  XNVCT (18)  *  XP3  /  XM3 

XNVCT (20)  =  XNVCT (17)  *  XP  /  XM 

XNVCT( 21 )  =  XNVCT ( 17)  *  ZP  /  ZM 

XNVCT( 22)  =  XNVCT (18)  *  ZP  /  ZM 

XNVCTI23)  =  XNVCT (22)  *  XP3  /  XM3 

XNVCT  ( 24 )  =  XNVCT  (  21 )  *  XP  /  XM 

RETURN 
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SUBROUTINE  OMAT 

DM2 

10 

c 

0M2 

20 

t 

*  *  *  *  *  ************************** 

*  * 

0M2 

30 

c 

* 

DM2 

40 

c 

*  SUBROUTINE  OMAT  CALCULATES  THE  ELASTIC  MATRIX  AND  PERFORMS 

A 

DM2 

50 

c 

*  ROTATIONAL  TRANSFORMATION  ON  THE  ELASTIC  MATRIX 

DM2 

60 

c 

♦ 

DM2 

70 

c 

*  THIS  SUBROUTINE  IS  CALLED  BY  - 

0M2 

80 

c 

*  ELAS 

0H2 

90 

c 

* 

0M2 

100 

c 

******************************* 

*  * 

DM2 

110 

c 

DM2 

120 

IMPLICIT  REALMS. (A-H.O-Z) 

DM2 

130 

INTEGER*2  IX,  1CODE,  GNKAT ,  MTLNO,  LOBC 

O' 

140 

COMMON  /  GENL  /  XINIT,  EPS,  AMBTMP, 

DM2 

150 

1  ICLASS,  NEL,  NGNP ,  NGLOF,  NMTL,  NTYEL,  LIMIT,  NM,  NDBC 

DM2 

160 

COMMON  /NODELM/  X11015),  Y11015).  ZU015),  UX(1015),  UY11C15J, 

0M2 

170 

1  UZ 11015) ,  TMPNOl 101 5 ) ,  FBC ( 3045 J ,  DBC13045),  TBCI  1,72), 

DM  2 

180 

2  1CODE11015),  I X  ( 144,27 )  ,  GNMAT  (144,72 )  ,MTLND(1015  )  ,LDBC  ( 1015) 

DM2 

190 

COMMON  /MATL  /  E(9,9,10),  FIB0RT19),  ALTAI! 9) , 

0M2 

200 

1  ALFA2C9),  ALFA319),  TMPELI9,10),  NTMP19) 

DH2 

210 

COMMON  /  STIFIN  /  016,6,24),  XNVCTI24),  ETM19) »  BA16.72), 

0M2 

220 

I  C( 3, 24) ,  XYZ t  24,3 ) ,  ALFTMP ( 6) ,  XSIK,  ETAJ,  ZTAI 

DM2 

230 

COMMON  /  INDX  /  1NEL ,  IGNP,  ILNP,IMTL 

DM2 

240 

0IMENS10N  T ( 6,6  ) , TD ( 6 , 6 ) ,  TT(6,6),  TMPC0F(6),  DTMPI6 

•  6) 

DM2 

250 

00  10  1=1,6 

DM2 

260 

DO  10  J=l,6 

DM2 

270 

T  1 1 , J)  =  0.00 

DM2 

280 

0( 1, J,ILNP)  =  000 

DM2 

290 

10  TD(I,J)  =  0.00 

DM2 

300 

XNU21  =  ETMI4)  ♦  ETM( 2 )  /  fcTKC 1 ) 

DM2 

310 

XNU31  =  ETMI5)  *  ETH( 3 )  /  ETMl 1 ) 

DM2 

320 

XNU32  =  ETM  6)  ♦  ETM( 3 )  /  ETM{ 2) 

DM2 

330 

FACT=1.D0-E  IM(4)*(XNU21*ETM(6)*XNU31)-ETH(5)*<XNU31*XNU32*XNU21> 

- 

DM2 

340 

1  ETM16) *XNU32 

DM2 

350 

0(1,1»ILNP)=  ETMl 1 )  *  (1.00  -  ETM16)  ♦  XNU32)  /  FACT 

DM2 

360 

D ( 1 , 2, ILNP )  =  ETM12)  *  ( ETM14)  ♦  E7M15)  *  XNU32 )  /  FACT 

DM2 

370 

D ( 1, 3, 1LNP )  =  ETM13)  *  (ETM15I  ♦  ETM14)  *  ETM 16) )  /  FACT 

DM2 

380 

012,1, ILNP)  =  Dll, 2, ILNP) 

DM2 

390 

012, 2, ILNP)  =  ETM12)  ♦  l 1.00  -  ETH15)  *  XNU31 )  /  FACT 

DM2 

400 

012, 3, ILNP)  =  ETM13)  *IETH16)  ♦  ETMl 5 )*  XNU21 )  /  FACT 

DM2 

410 

• 

013,1, ILNP)  =  DU, 3, ILNP) 

DM2 

420 

013,2, ILNP)  =  012 , 3, ILNP ) 

DM2 

430 

D(3,3,1LNP)  =  ETM 13)*  11. DO  -  E1M14)  *  XNU21)  /  FACT 

DM2 

440 

014, 4, ILNP)  =  ETM17) 

DM2 

450 

0(5, 5, ILNP )  -  ETMIB) 

DM2 

460 

0(6, 6, ILNP)  =  ETM19) 

DM2 

470 

ALFTMP  1 1 )  =  ALFA1UMTL) 

DM2 

480 

ALFTMP12)  =  ALFA21IMTL) 

DM2 

490 

ALFTMP13 )  =  ALFA31IMTL) 

DM2 

500 

110  60  1=4,6 

DM2 

510 

A-20 


4J 


w 


k 


f* 


60 

ALFTMP(I)  =  000 

DM2 

520 

I  F(  DABS ( FI BORT ( 1 MTl) )  .LT.  .5D-14  )  GO  TO  50 

DM2 

530 

FIBOR  =  F1B0RTUHTL)  *  3 . 141592653589793200  /  180. DO 

DM2 

540 

i  kill)  =  DCUS'.PIHOR  )  **2 

DM2 

550 

T(1,2J  =  OSIN (FIBOR  )**2 

DM2 

560 

7(4,1)  =  DCOS (F180R  )  *  DS1N1F1B0R  ) 

DM2 

570 

T ( 1 1 4)  =  -2. DO  *  1 14*1 ) 

DM2 

580 

7(2,1)  =  7(1*2) 

DM2 

590 

T  ( 2*  2 )  =  T  ( 1  *  1 ) 

DM2 

600 

T (2*4)  =  -7(1,41 

0M2 

610 

T (3,3)  =  1 .DO 

DM2 

620 

T (4*2 )  =  -7(4,1) 

DM2 

630 

T (4,4)  =  7(1,1)  -  7(1,2) 

DM2 

640 

7(5,5)  =  DCOS (FI BOR  ) 

DM2 

650 

7(6,5)  =  OSIN(FIBOR  ) 

DM2 

660 

T (5,6)  =  -7(6,5) 

DM2 

670 

7(6,6)  =  T ( 5, 5 ) 

DM2 

680 

DO  70  1=1,6 

DM2 

690 

TMPCOF(l)  =  000 

DM2 

700 

DO  70  J= 1 , 6 

DM2 

710 

70 

TMFCOF(I)  =  TMPCOF ( 1 )  +  T(1,J)  *  ALFTMP(J) 

DM2 

720 

DO  90  1=1,6 

DM2 

730 

90 

ALFTMP ( 1 )  =  7MPC0F ( 1 ) 

0H2 

740 

00  20  1=1,6 

0M2 

750 

DO  20  J= 1 ,6 

DM2 

760 

DO  20  K= 1,6 

DM2 

770 

20 

70(1, J)  =  TD( I , J )  ♦  T(I,K)*D(K,J,ILNP) 

DM2 

780 

DO  80  1=1,6 

DM2 

790 

DO  80  J=i,6 

DM2 

800 

80 

77 ( J  ,  1 )  =  7(1, J) 

DM2 

810 

DO  30  1=1,6 

DM2 

820 

DO  30  J= 1 , 6 

DM2 

830 

D7HP ( I , J )  =  000 

DM2 

840 

DO  30  K=  1  *6 

DM2 

850 

30 

D7HP ( I , J )  =  OTMP 1 1 , J)  ♦  7D ( I , K  )  *  TT(K,J) 

DM2 

860 

00  40  1=1,6 

0M2 

870 

DO  40  J- 1,6 

DM2 

880 

90 

(X  I , J, 1LNP )  =  07HP ( I , J ) 

DM2 

890 

50 

COfUlNUE 

DM2 

900 

RF7URN 

DM2 

910 

fcNO 

DM2 

920 
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SUBROUTINE  F8CDBC  FB2 

FB2 

**********************************  FB2 

*  *  FB2 

*  SUBROUTINE  FBtObC  FORMS  A  FORCE  AND  A  DISPLACEMENT  ARRAY  *  FB2 

*  *  FB2 

*  THIS  SUBROUTINE  IS  CALLED  BY  -  *  FB2 

*  MAIN  *  FB2 

*  *  FB2 

**********************************  png 

FB2 

IMPLICIT  REAL*8  I A-H.O-Z I  FB2 

I NTEG£R*2  IX,  ICOOt,  GNMAT ,  MILND,  LDBC  FB2 

COMMON  /  GENL  /  XINIT,  EPS,  AMBTMP,  FB2 

1  1CLASS ,  NEL,  NGNP ,  NGLDF,  NMTL ,  NTYEL,  LIMIT,  NM,  NDBC  FB2 

COMMON  /NOOELM/  X11015I,  Y( 10151,  Z 11015),  UX11015),  UYII0I5),  FB2 

1  UZ ( 1015 ) ,  TMPND ( 101 5  ) ,  FBC13C4S),  0BC13045),  TBC(  1,72),  FB2 

2  1C0DE ( 1015 ) ,  IX<144, 27),  GNMAT 1 144,72 ) ,MTLND( 1015 ) ,LDBC 1 1015 )  FB2 

COMMON  /MAIL  /  E(9,9,10J,  FIB0RT19),  ALFAll 9) ,  FB2 

1  ALFA219),  ALFA319),  TMPEL19.10),  NTMP19)  FB2 

IDBC  =  0  •  FB2 

00  7  I -1, NGNP  FB2 

IF11C0UE11)  .EQ.  1  .OR.  IC0DE1II  .EG.  3)  GO  TO  2  FB2 

IF ( I  CODE ( I )  .EO.  2)  GO  TO  3  FB2 

IF(iCOOEll)  .EG.  7)  GO  TO  4  FB2 

FBC(3*I~2)  =  UXCIJ  FB2 

I F ( I  CODE ( I )  .EG.  4)  GO  TO  3  FB2 

I F ( ICOOE 1 1  )  .EO.  6)  GO  TO  5  FB2 

2  FBCl 3*1-1)  *  UY1I)  FB2 

I F ( 1  CODE  1 1 )  .EG.  3)  GO  TO  4  FB2 

IFUCODF(I)  .EG.  5)  GO  TO  6  FB2 

3  FBCl 3*1  I  =  UZII)  FB2 

1 F (I CODE  1 1 )  .EG.  0)  GO  TO  7  FB2 

I F ( ICOOE ( 1 )  .EO.  4)  GO  TO  5  FB2 

4  IDPC  =  IOBC  ♦  1  FB2 

LOBCUQBC)  =  3*1-2  FB2 

0BC(3*T-2)  =  UX  (1)  FB2 

I F 1 ICOOE 1 1  )  .EG.  1)  GO  TO  7  FB2 

IF ( ICOOE ( 1 )  « EG •  3)  GO  TO  6  FB2 

5  I OllC  s  IOBC  *  1  FB2 

LOBC1IOBC)  »  3*1-1  FB2 

OBCl 3*1-1 )  =  UY  (1)  FB2 

1 F ( ICOOE ( I )  .EG.  2  .OR.  IC00E1I)  .EG.  4)  GO  TO  7  FB2 

6  IObC  =  IDBC  ♦  1  FB2 

LDBC (IDBC)  =  3*1  '  FB2 

DBCl 3*1  )  =  UZ  (I)  FB2 

7  CONTINUE  FB2 

NDBC  =  IDBC  FB2 

RETURN  FB2 

END  FB2 
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C  MAIN  PROGRAM  STEP  3  (ITERATION  IN  CORE  VERSION!  ESC  10 

C  ESC  20 

C  «♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦  *♦♦♦♦♦♦♦*♦♦**  ESC  30 

C  *  *  ESC  40 

C  *  STEP  3  PERFORMS  FIVE  FUNCTIONS  *  ESC  50 

C  *  *  ESC  60 

C  *  1.  COMBINES  NON-ZERO  DISPLACEMENT  BOUNDARY  CONDITIONS  WITH  *  ESC  70 

C  *  THE  FORCE  VECTOR  .  *  ESC  80 

C  *  *  ESC  90 

C  *  2.  SOLVES  THE  SYSTEM  OF  LINEAR  EQUATIONS  BY  MINIMIZING  THE  *  ESC  100 

C  *  TOTAL  POTENTIAL  ENERGY  *  ESC  110 

C  *  *  ESC  120 

C  *  3.  CALCULATES  AND  PRINTS  THE  STRAIN  ENERGY  AND  OTHER  *  ESC  130 

C  *  CONVERGENCE  PARAMETERS  *  ESC  140 

C  ♦  ♦ESC  150 

C  ♦  4,  PRINTS  THE  C00P.DINA7E  AND  THREE  (XtY,CZ)  DISPLACEMENTS  *  ESC  160 

C  ♦  AT  EACH  NODE  ♦  ESC  170 

C  ♦ ‘  ♦  ESC  180 

C  ♦  5.  WRITES  DISPLACEMENTS  ON  DISK  AND/OR  CARDS  ♦  ESC  190 

C  *  ♦ESC  200 

C  *♦♦•,»*«.************#*♦**#***»****♦  ESC  210 

C  ESC  220 

C  #♦♦#****♦**#♦*******♦♦*♦**♦******1*  ESC  230 

C  ♦  ♦ESC  240 

C  ♦  VARIABLE  DEFINITIONS  AND  DIMENSIONS  FOR  STEP  3  *  ESC  250 

t  ♦  *  ESC  260 

C  ♦  ACB - CHANGE  IN  STRAIN  ENERGY  OVER  STRAIN  ENERGY  ♦  ESC  270 

C  ♦  *  ESC  280 

C  ♦  OINGLOFJ  -  -  -  -  FORCE  VECTOR  *  ESC  290 

C  ♦  *  ESC  300 

C  ♦  BNRM - MAGNITUDE  OF  THE  FORCE  VECTOR  ♦  ESC  310 

C  ♦  *  ESC  320 

C  ♦  DBC (MM!  -  NON-ZERO  DISPLACEMENT  BOUNDARY  CONDITIONS  ♦  ESC  330 

C  ♦  *  ESC  340 

C  *  DELE - CHANGE  IN  STRAIN  ENERGY  ♦  ESC  350 

C  ♦  »  ESC  360 

C  ♦  DELXNR - MAGNITUDE  OF  THE  CHANGE  IN  DISPLACEMENT  ♦  ESC  370 

C  *  VECTOR  *>  ESC  380 

C  ♦  ♦ESC  390 

C  ♦  ENGYl - STRAIN  ENERGY  ♦  ESC  400 

C  ♦  ♦ESC  410 

C  »  FNGY2 - STRAIN  ENERGY  *  ESC  420 

C  ♦  ♦  ESC  430 

C  ♦  tPS - ENERGY  CONVERGENCE  TEST  PARAMETER  ♦  ESC  440 

C  ♦  ♦  ESC  450 

C  ♦  G(NGLDF)  -  -  RESULTING  VECTOR  FROM  KX  OR  K P  MATRIX-  ♦  ESC  460 

C  *  VECTOR  PRODUCT  ♦  ESC  470 

C  ♦  ♦  ESC  480 

C  *  GHMAT(NEL,72)  -  RELATES  LOCAL  AND  GL03AL  DEGREES-OF-FREEDOM  ♦  ESC  490 

C  ♦  ♦  ESC  500 

C  ♦  1X26INEL)  -  ELEMEN!  TYPE  FOR  EACH  ELEMENT  ♦  ESC  510 
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c 

* 

*  ESC 

520 

c 

*  KEMAT(NTYEL»  2t>28  )- 

MATRIX  OF  THE  UPPER  SYMMETRIC  PORTION  OF  THE*  ESC 

530 

c 

* 

UNIQUE  ELEMENT  STIFFNESS  MATRICES  -  EACH 

*  ESC 

540 

c 

♦ 

ELEMENT  STIFFNESS  MATRIX  IS  STORED  AS  A  ROW 

*  ESC 

550 

c 

* 

IN  KEMAT 

*  ESC 

560 

c 

* 

*  ESC 

570 

c 

*  KOUNT  - 

~  - 

TOTAL  NUMEER  OF  ITERATIONS 

*  ESC 

580 

c 

* 

*  ESC 

590 

c 

*  LUBC(NDBC)  - 

-  ~ 

INDEX  FOR  DISPLACEMENT  BOUNDARY  CONDITIONS 

*  ESC 

600 

c 

♦ 

*  ESC 

610 

L 

*  LLDBCIMM)  - 

—  - 

INDEX  NUMBERS  FOR  NON-ZERO  DISPLACEMENT 

*  ESC 

620 

c 

* 

BOUNDARY  CONDITIONS 

*  ESC 

630 

c 

t 

*  ESC 

640 

c 

*  MM - 

-  - 

NUMBER  OF  NON-ZERO  DISPLACEMENT  BOUNDARY 

♦  ESC 

650 

1- 

* 

CONDITIONS 

*  ESC 

660 

c 

♦ 

*  ESC 

■  70 

c 

*  NDBC  - 

-  ... 

NUMBER  OF  DISPLACEMENT  BOUNDARY  CONDITIONS 

*  ESC 

■-80 

c 

*  ' 

*  ESC 

690 

c 

*  fJEL - 

-  - 

NUMBER  OF  ELEMENTS 

*  ESC 

700 

c 

* 

*  ESC 

710 

L 

*  NGLDF  - 

—  - 

NUHBER  OF  OEGREES-OF-FREEDOM  I GLOBAL  SYSTEM)*  ESC 

720 

c 

♦ 

*  ESC 

730 

c 

*  NTYEL  - 

-  - 

NUMBER  OF  UNIQUE  ELEMENTS 

♦  ESC 

740 

c 

* 

*  ESC 

750 

c 

*  P(NGLDF)  - 

-  ~ 

CORRECTION  VECTOR  IN  CONJUGATE  GRADIENT 

*  ESC 

760 

c 

* 

ROUTINE 

•  ESC 

770 

c 

* 

*  ESC 

780 

c 

♦  R (NGLDF)  - 

-  - 

RESIDUr  VECTOR  IN  CONJUGATE  GRADIENT 

*  ESC 

790 

c 

* 

ROUTINE 

*  ESC 

800 

c 

* 

*  ESC 

810 

c 

*  RNRH  - 

-  - 

MAGNITUDE  OF  THE  RESIDUE  VECTOR 

*  ESC 

820 

c 

♦ 

*  ESC 

830 

o 

*  UXINGNP)  - 

-  - 

DISPLACEMENTS  IN  THE  X-DIRECTION 

*  ESC 

840 

c 

* 

*  ESC 

850 

c 

♦  UY(NGNP)  - 

-  - 

DISPLACEMENTS  IN  THE  Y-DIRECTIUN 

*  ESC 

860 

c 

* 

* 

*  ESC 

870 

c 

♦  UZ(NGHP)  - 

-  - 

DISPLACEMENTS  IN  THE  Z-DIRECTION 

*  ESC 

880 

c 

♦ 

♦  ESC 

890 

c 

*  XINGLDF )  - 

-  - 

DISPLACEMENT  VECTOR 

*  ESC 

900 

c 

♦ 

*  ESC 

910 

c 

*  XCORO(NGNP)  - 

X-COOROINATE  I GLOBAL  SYSTEM) 

*  ESC 

920 

f 

* 

*  ESC 

930 

r 

*  YCORD(NGNP)  - 

-  - 

Y-CQORD1NATE  IGLOBAL  SYSTEM) 

*  ESC 

940 

r 

* 

*  CSC 

950 

c 

♦  ZCORDINGNP I  - 

Z-COORD1NATE  IGLOBAL  SYSTEM) 

*  ESC 

960 

L 

♦ 

*  ESC 

970 

L 

********* 

♦  * 

********************** 

♦  ESC 

980 

c 

ESC 

990 

c 

********* 

♦  * 

********************** 

*  ESC 

1000 

♦ 

*  LSC 

1010 

c 

*  LOGICAL  SWITCH 

INFORMATION  I  ALL  SWITCHES  INITIALLY  .FALSE.} 

*  ESC 

1020 

r 
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c 

ESC 

1030 

c 

♦ 

SHU) 

.TRUE. 

CONVERGED  TO  A  SOLUTION 

* 

ESC 

1040 

c 

* 

.FALSE. 

DID  NOT  CONVERGE  TO  A  SOLUTION 

ESC 

1050 

c 

*• 

SET  IN 

CGJRD 

♦ 

ESC 

1060 

c 

* 

TESTED  IN 

MAIN 

* 

ESC 

1070 

c 

♦ 

4 

* 

ESC 

1080 

c 

♦ 

SMI  2 ) 

.TRUE. 

CHANGE  IN  STRAIN  ENERGY/STRAIN  ENERGY  .LT.  EPS* 

ESC 

1090 

c 

* 

.FALSE. 

CHANGE  IN  STRAIN  ENERGY/STRAIN  ENERGY  .GE.  EPS* 

ESC 

1100 

c 

♦ 

SET  IN 

CGJRD 

♦ 

ESC 

1110 

c 

♦ 

TESTED  IN 

CGJRD 

* 

ESC 

1120 

c 

* 

* 

ESC 

1130 

c 

* 

SMI  3) 

.TRUE. 

EXCEEDLO  MAXIMUM  NUMBER  OF  ITERATIONS 

♦ 

ESC 

1140 

c 

* 

.FALSE. 

DID  NOT  EXCEED  MAXIMUM  NUMBER  OF  ITERATIONS 

* 

ESC 

1150 

c 

♦ 

' 

SET  IN 

CGJRD 

* 

ESC 

1160 

c 

* 

TESTED  IN 

CGJRD 

* 

ESC 

1170 

c 

* 

* 

ESC 

1180 

c 

* 

SH14) 

.TRUE. 

MAGNITUDE  OF  THE  RESIDUE  VECTOR  .LT.  1.00 

♦ 

ESC 

1190 

c 

.FALSE. 

MAGNITUDE  OF  THE  RESIDUE  VECTOR  .GE.  1.00 

* 

ESC 

1200 

c 

♦ 

SET  IN 

CGJRD 

* 

ESC 

1210 

c 

* 

TESTED  IN 

CGJRl) 

* 

ESC 

1220 

c 

-* 

* 

ESC 

1230 

c 

* 

SHI  0 ) 

.TRUE. 

INITIAL  DISPLACEMENTS  REAO  FROM  DISK 

* 

ESC 

1240 

c 

* 

.FALSE. 

INITIAL  DISPLACEMENTS  READ  FROM  CAROS 

* 

ESC 

1250 

c 

* 

SET  IN 

MAIN 

♦ 

ESC 

1260 

c 

* 

TESTED  IN 

CGJRD 

♦ 

ESC 

1270 

c 

* 

SH(  51 

,  SMI  6)  ,  SH 1 7  )  ,  SHIV),  SHI  1 0 )  y  SH'U)  t  SHI12)  NOT  USED 

* 

ESC 

1200 

c 

♦ 

* 

ESC 

1290 

c 

♦ 

*  *  *  i 

»  *  *  *  *  * 

ft********************** 

♦ 

ESC 

1300 

c 

ESC 

1310 

IMPLICIT  RfcAL*8 

IA-H.0-Z1 

ESC 

1320 

REAL*8KEMAT 

ESC 

1330 

LOGICAL* 1  SH 

ESC 

1340 

1NTEGER*2  GNMAT, 

LOBC.LLDHC,  1X26 

ESC 

1350 

COMMON 

/  KEGN  / 

KEMATI3, 26281,  GNMAT I  64,721,1X261  651 

ESC 

1360 

COMMON 

/  CGVECT  / 

GI15751,XI15751,BI1575),PI1575»,RI 1575) 

ESC 

1370 

COMMON 

/BC/  DBCI200),  LLOBC 1200),  LDBC(700!y  ND8C 

ESC 

1380 

COMMON 

/SCALAR/ 

EPS,  ACU ,  XMKM,  BNRM,  RNRM.DELXNR, 

ESC 

1390 

1 

DELE.  ENGYI,  FNGY2 » 

ESC 

1400 

2 

NGLDF,  LIMIT.  NEL.  KOUNT,  ITYEL,  ITRLMT,  MH 

ESC 

1410 

COMMON 

/  HEAD  /  HEDI 101 ,ICRD, LIST, IPAGE, LINE 

ESC 

1420 

COMMON 

/SH1TCH  / 

SHI  12) 

ESC 

1430 

c 

ESC 

1440 

c 

CAUTION: 

DO  NOT  DIMENSION  UX  GREATER  THAN  1314  -  SEE  EQUIVALENCE 

ESC 

1450 

c 

STATEMENT 

BELOH 

ESC 

1460 

c 

ESC 

1470 

DIMENSION  XCORDI5251,  YCORUI525),  2CCROI525)t 

ESC 

1480 

1 

UX  1 5251 .  UYI525) .  UZI525) 

ESC 

1490 

EQUIVALENCE  (XCORDI 1 1  ,Gf  1 J)  ,  IYCORDIX)  IZC0R0I1),  PI111ESC 

1500 

EQUIVALENCE  IKEMAT 1 1 , 1 ) , UX (I »»  ,  IKEMATI l,  1315) ,UY I 1 1 1 , 

ESC 

1510 

1 

(Rill 

,  UZI11) 

ESC 

1520 

100 

HIRMAT I215.2F10.0, 

15  1 

ESC 

1530 
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102  FORMAT 15116)  ESC 

201  FORMAT C'OMAXI MUM  NUMBER  OF  ITERATIONS  FOR  THIS  RUN  IS*  •  15)  ESC 

201  FORMAT (* ODE LTA  STRAIN  ENERGY  /  STRAIN  ENERGY  DID  CONVERGE  TO  •  ESC 
1  .  E 1 4 . 7 » '  AFTER*  ,  16,  '  ITERATIONS  AND  ACCURATE  TC1*,E14.7)  ESC 

302  FUR’MT ( *  T 1MC  IN  CG  SUBROUTINE  IS  •  ,  FT. a,  •  SECONDS')  ESC 

303  FORMAT ( * ODELTA  STRAIN  ENERGY  /  STRAIN  ENERGY  DID  NOT  CONVERGE  TO  *ESC 

1  ,  E14.7,'  AFTER*  »  16,  *  ITERATIONS  BUT  ACCURATE  T0»,E14.7)  ESC 

304  FORMAT ( • 0* ,  G14.7,  •  IS  THE  INITIAL  GUESS  FOR  ALL  DI SPLACEMENTS* ) , ESC 

305  FORMAT  ( ‘OTHE  INITIAL  GUESSES  FOR  DISPLACEMENTS  ARE  READ  FROM  CARDESC 

IS  AND  MULTIPLIED  BY  A  FACTOR  OF*  ,  G14.7)  ESC 

306  FORMAT  ( *OTHE  INITIAL  GUESSES  FOR  DISPLACEMENTS  ARE  READ  FROM  CARDESC 
IS  AND  THE  Z -01 SPLACEMENTS  ARE  MULTIPLIED  BY  A  FACTOR  OF*,  G14.7)  ESC 

307  FURMATPOTHE  INITIAL  GUESSES  FOR  DISPLACEMENTS  ARE  READ  FROM  DISK'ESC 

1  )  ESC 

30B  FORMAT ( 'OSTRAIN  ENERGY*,  T50,  E14.7  ,*  K  IN-LBS*  /  ESC 

1  •  CHANGE  IN  STRAIN  ENERGY',  T50,  E14.7  ,'  K  IN-LBS*  /  ESC 

2  •  MAGNITUDE  OF  THE  RESIDUE  VECTOR*,  T50,  E14.7  ,*  K  LBS'/  ESC 

i  •  MAGNITUDE  OF  THE  FORCE  VECTOR*,  750,  E14.7  »•  K  LBS*/  ESC 


4  •  MAGNITUDE  UF  THE  CHANGE  IN  DISPLACEMENT  VECTOR*, T50,E14.7ESC 

5,'  IN*/*  MAGNITUDE  OF  THE  DISPLACEMENT  VECTOR*,  T50,  E14.7,'  IN*)ESC 
2000  FORMAT ( • 0* ,7X , 'NODE*  » 1 3X , *X-COORO* , 13X,  • Y-COORD • , 13X,  'Z-COORD*,  ESC 


1  9X ,  « X-Dl SPL* ,  13X,  • Y— 01 SPL * , 13X,  'Z-DISPL*  /  ESC 

2  27X ,  *  INS • ,  17X,  *INS*,17X,  *IN5*,  13X,  'INS',  17X,  'INS',  ESC 

3  17X,  *INS •  /  >  ESC 

2001  FORMAT ( 6X ,  15,  3F20.5,  3E2C.7)  ESC 

DEFINE  FILE  3(55, 6500, U, IDXOA)  CSC 

IUOA  *  3  ESC 

LIST  =  6  ESC 

C  ESC 

C  READ  CARD  DATA  FOR  STEP  3  '  ESC 

C  ESC 

RE ADC  5 , 100 )  1NTXM0,  ITRLMT,  FACTOR,  EPS,  IDSPL  ESC 

WRITE ( LI  ST ,201 )  ITRLMT  ESC 

C  ESC 

C  READ  DATA  GENERATED  IN  STEP  2  ESC 

C  ESC 

READ  CIUDA'l)  NEL,  NGLDF ,  NDBC,  NTYEL,  LIMIT,  NGNP»NMTL»  ESC 

1  HED,  I  PAGE,  AMBTMP  ESC 

RE AO  (IUDA'4)  {  B ( J) , J=1 ,NGLOF )  ESC 

1  ,  SW,  NUCNV ,  ( LDBCC  J ),J=1,NDBC)  ESC 

READ  ( IUDA ' 5)  (  PC JJ ,J=1,NGL0F)  ESC 

1  ,  (IX26C J),J=1,NEL>  ESC 

READ  ( IUOA *6)  ( (GNMATCI,J),J  =  1,72),I  =  1,NEL)  ESC 

C  ESC 

C  READ  UNIOUE  ELEMENT  STIFFNESS  MATRICES  ESC 

C  ESC 

DO  44  1=1, NTYEL  ESC 

4A  READ  I IUOA* IOXOA )  CKEMAT(1,/;,J=1,2628)  ESC 

IDXDA  =  NT YEL*7  ESC 

C  ESC 

C  DETf RHINE  INITIAL  GUESS  FOR  THE  DISPLACEMENT  VECTOR  ESC 


1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1320 

1830 

1840 

1650 

1860 

1870 

1880 

1890 

190r» 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 
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GO  TO  (  21 ,22 ,23 ,24) ,  1NTXMD 

21  UU  50  1=1 , NGLDF 
50  XIII  =  FACTOR 

WRITE) LIST  ,304)  FACTOR 
GO  10  Z  ~f 

22  READ(5,102)  ( XI J ) , J=L , NGLDF ) 

DO  61  1=1*NGLDF 

61  X ( I )  =  F ACTOR*X { I ) 

WRITE (LIST ,305 )  FACTOR 
GO  TO  29 

23  RE A0( 5f 102 )  (X ( J ) , J=l, NGLDF ) 

DO  10  1=1,NGNP 

10  X(3*I)  =  FACTOR*X ( 3*1 ) 

WR 1TE ( LIST  »306 )  FACTOR 
GO  TO  29 

24  READ  ( 1U0A • IDXDA ) SWf MM ,  (DBC( J  )  ,J=1,HM) ,  (LLOBC { J) , J=1 , 

l'  <X(J|,J=1, NGLDF) 

SW ( B )  =  .TRUE. 

SW(3)  =  .FALSI. 

35  1 F  (  .NOT.  SW(10)  )  GO  TO  33 
MM  =  0 

33  READ  ( 1UDA* IDXDA)  ( B (J ) ,J=1 , NGLDF ) 

WR1TEIL1ST  *307 ) 

GO  TO  34 
29  CONTINUE 


CONVERT  INITIAL  DISPLACEMENT  BOUNDARY  CONDITIONS  TO  FORCE 
CONDITIONS 


MM  =  0 

DO  60  1=1 .NGLDF 

IF(  DABS(P(I))  .LT.  l.U-14)  GO  TO  60 
MM  =  MM  ♦  I 
OBC(MM)  =  P(I) 

LLDbC(MM)  =  1 
60  CONTINUE 

DO  13  1=1, NGLDF 
13  G( I)  =  0.00 

DO  15  INEL-ltNEL 
I  TEL  =  I X26 ( INEL ) 

15  CALC  GVT (GNMAT ,  KEMAT,  0,  P,  INLL,  1TEL) 
00  80  1=1, NGLDF 
80  B(  I)  =  B(I  )'  -  G(I  ) 

34  CALL  TIMON 

MINIHIZE  TOTAL  POTENTIAL  ENERGY 

CALL  CGJRD 

CALL  TIMfcCK(ITIME) 

SEC  =  IT 1ME/100. 


ESC  2050 
ESC  2060 
ESC  2070 
ESC  2060 
ESC  2090 
ESC  2100 
ESC  2110 
ESC  2120 
ESC  2130 
ESC  2140 
ESC  2150 
ESC  2160 
ESC  2170 
ESC  2180 
ESC  2190 
ESC  2200 
MM),  (COUNT, ESC  2210 
ESC  2220 
ESC  2230 
ESC  2240 
ESC  2250 
ESC  2260 
ESC  2270 
ESC  2280 
ESC  2290 
ESC  2300 
ESC  2310 
BOUNDARY  ESC  2320 
ESC  2330 
ESC  2340 
ESC  2350 
ESC  2360 
ESC  2370 
ESC  2380 
ESC  2390 
ESC  2400 
ESC  2410 
ESC  2420 
ESC  2430 
ESC  2440 
ESC  2450 
ESC  2460 
ESC  2470 
ESC  2480 
ESC  2490 
ESC  2500 
ESC  2510 
ESC  2520 
ESC  2530 
ESC  2540 
ESC  2550 
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C  WRITE  FORCE  AND  DISPLACEMENT  DATA  ON  DISK  FOR  USE  IN  FUTURE  RUNS 
C 

IFt  MM  .NE.  0  )  GO  TO  31 
<;«()••')  =  .TRUE. 

MM  =  1 

OBC( 1)  =  OOO 
31  IOXOA  =  NT YtL  ♦  7 

WR IT l I IUDA*  1 0X0 A 1  SW»MM,  ( 0t)C I J )  ,J=1,MM)  ,  (LLDBC { J )  , J=1,MM ) 

1  (X(J),J=1,NGL0F) 

WRITE! IUDA*  IOXOA)  I  B  ( J  ) , J=1 ,NGLDF ) 

C 

C  PRINT  STRAIN  ENERGY  AND  CONVERGENCE  DATA 
C 

1 F ( SW( 1 ) )  GO  TO  20 


WRITE( LIST ,303 )  EPS,  KOUNT,  ACB  ESC 

,G0  10  9 

20  WRITE (LIST  ,301 )  LPS»  KOUNT*  ACB  ESC 

9  WR IT£( LI  ST  *302 )  SEC  ESC 

WR  IT  E  ( Ll.ST  *  308 )  ENGY1,  DELE,  RNRM*  BNRM,  DELXNR,  XNRM  ESC 

I F ( IDS PL  .  EO.  01  GO  TU  32  ESC 

ESC 

PRINT  AND/OR  PUNCH  THE  DISPLACEMENT  VECTOR  ESC 

ESC 

ESC 

IF ( IDSPL  .EO.  2)  GO  TO  A3  ESC 

RE ADI  I UD A*  3) ( XCORDl J I  *  J= 1  * NGNP  )  *  < YCORDl J 1 1 J*I,NGNP)  ,  ESC 

1  I ZCURDI J) *J- 1* NGNP  ) 

CALL  TITLE 
WR ITE I  LI  ST  *2000  J 


DO  30  1=1, NGNP 
IF  (LINE  .U.  48)  GO  TO  94 
CALL  TITLE 
WRITt(LIST,2000) 

94  CONTINUE 

LINE  =  LINF  ♦  1 
UXU)  =  XI  3*1  -2  ) 

UYII )  =  X I  3*1-1 ) 

U2 ( I )  =  Xt  3*1  I 

30  WRITE  I  LIST ,2001 )  I,  XCOROIIJ  , 
1  UX(I),  UYII),  UZU) 

I F l IDSPL  .EO.  1)  GO  TO  32 
43  WR1TE(7,102)  (XI  I ) , 1  =  l.NGLDF ) 

32  STOP 
END 


ESC  2560 
ESC  2570 
ESC  2580 
ESC  2590 
ESC  2600 
ESC  2610 
ESC  2620 
ESC  2630 
KOUNT, ESC  2640 
ESC  2650 
FSC  2660 
ESC  2670 
ESC  7680 
ESC  2690 
ESC  2700 
2710 
ESC  2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
ESC  2830 
ESC  2840 
ESC  2850 
ESC  2860 
ESC  2870 
ESC  2880 
ESC  2890 
ESC  2900 
ESC  2910 
ESC  2920 
ESC  2930 
ESC  2940 

YCOROil),  ZCORDII),  ESC  2950 

ESC  2960 
ESC  2970 
ESC  2980 
ESC  2990 
ESC  3000 
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SUBROUTINE  CGJRD 

CGC 

10 

c 

CGC 

20 

c 

******************************** 

*  *  CGC 

30 

c 

* 

*  CGC 

40 

c 

*  SLoROUT INE  CGJ^O  MINIMIZES  THE  TOTAL  POTENTIAL  ENERGY  BY  THE 

*  CGC 

50 

c 

*  CONJUGATE  GRAOIENT  METHOD  AND  TESTS  THE  STRAIN  ENERGY  FOR 

*  CGC 

60 

c 

*  CONVERGENCE 

♦  CGC 

70 

c 

* 

*  CGC 

80 

c 

*  THIS  SUBROUTINE  IS  CALLED  BY  - 

*  CGC 

90 

c 

♦  MAIN 

♦  CGC 

100 

c 

* 

*  CGC 

110 

c 

*  THIS  SUBROUTINE  CALLS 

♦  CGC 

120 

c 

*  GVT 

*  CGC 

130 

c 

* 

♦  CGC 

140 

c 

A***************************  *1‘** 

♦  ♦  CGC 

150 

c 

CGC 

160 

c 

„ 

CGC 

170 

IMPLICIT  RI.AL*8  (A-H.O-Z) 

CGC 

180 

REAL*8KEMAT 

CGC 

190 

1NTEGER*2  GNMAT, LU8C ,LLOBC,  1X26 

CGC 

200 

LOGICAL* 1  SW 

CGC  - 

210 

COMMON  /  KEGN  /  KEMA T ( 3, 2628  ) ,  GNMAT (  64, 72). IX26I  65) 

CGC 

220 

COMMON  /  CGVECT  /  G< 15 75 ), X< 1575 J ,B « 1575 ) ,P (1 575 ) ,R ( 1575 ) 

CGC 

230 

COMMON  /SCALAR/  EPS,  ACB,  XNRM,  BNRM,  RNRM, DELXNR , 

CGC 

240 

1  DELE. ,  ENGY1  ,  ENGY2 , 

CGC 

250 

2  NGLDF,  LIMIT,  NEL,  KOUNT,  I1YEL,  ITRLMT,  MM 

CGC 

260 

COMMON  /BC/  OBC( 2001 ,  LLUBCC200),  LDBC1700),  NDBC 

CGC 

2  70 

COMMON  /SWITCH  /  SWI12) 

CGC 

280 

ITKNT  =  0 

CGC 

290 

I F ( SW{ 8 )  )  GO  TO  2 

CGC 

300 

KOUNT  =  0 

CGC 

310 

BETA  =  0.00 

CGC 

320 

c 

CGC 

330 

c 

RESTART  ITERATIVE  PROCESS  BY  FINDING  NEW  RESIDUE  VECTOR 

CGC 

340 

c 

CGC 

350 

2  00  10  1  =  1, NGLDF 

CGC 

360 

10  GUI  i  O.DO 

CGC 

370 

TO  70  1=1, None 

CGC 

380 

BILDBCU  ))  =  0.00 

CGC 

390 

70  X(LDBCtD)  =  0.00 

CGC 

400 

DO  31  INf L=1,NEL 

CGC 

410 

ITEL  =  I X26 ( INE  L 1 

CGC 

420 

31  CALL  GVT (GNMAT,  KEMAT,  G,  X,  INEL,  ITEL) 

CGC 

430 

DO  32  1=1, NDBC 

CGC 

440 

32  GILDBCd  ))  =  0.00 

CGC 

450 

RNRM1  =  O.DO 

CGC 

460 

DO  20  I  =  ), NGLDF 

CGC 

470 

Pill  =  BID  -  G ( I  ) 

CGC 

480 

R ( I )  =  P(I) 

CGC 

490 

20  RNRM1  =  RNRM1  ♦  R(I)  ♦  R(I) 

CGC 

500 

c 

CGC 

510 

t 
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f  CALCULATE  STRAIN  ENERGY 
C 

I  F  (  .NOT.  (SHU)  .OR.  SH  (4  ) ) )  GO  TO  5 
IF  (MM  .EO.  0)  GO  TO  95 
UU  9C  i  =  1 »  MM 
90  X  (  LLOBCt  I )  )  •=  OBC(I) 

95  ENGY1  =  0.00 
00  17  I=I,NGLOF 
17  G( I)  =  0.00 

00  34  INEL=1*NFL 
ITEL  =  IX26I1NEL) 

34  CALL  GVTIGNMAT,  KEMAT,  G,  X,  INLL*  ITEL) 
DO  92  I=1*NGL0F 

92  ENGY1  =  ENGYl  +  X(l)  *  C(l) 

ENGY1  =  .500  *  ENGYl 
6NGY2  =  ENGYl 

FIND  ALFA 

5  DO  35  1 =1 »NGLUF 

35  0(1)  =  0.00 
DO  33  IN=L=1,NEL 
ITEL  =  1X26 ( INEL ) 

33  CALL  GVTIGNMAT,  KEHAT ,  G,  P.  INEL,  ITEL) 
00  36  1=1, NOBC 

36  G(LOBCUJ)  =  O.r'' 

PKP  =  0.00 
00  30  I  =  l.NGLDF 

30  PKP  PKP  +  P  ( I )  *  G(  I  ) 

ALFA  =  RNRM1  /  PKP  ■  * 

I F ( SH( 3 ) )  GO  TO  25 

CORRFCT  THE  DISPLACEMENT  VFCTOR 

00  40  1  =  1,NGL0F 
40  X(I )  =  X ( 1 )  ♦  ALFA  *  P(I  ) 

1TKNT  =  ITKNT  ♦  1 
KOUNT  =  KOUNT  ♦  1 
IF ( 11KNT  . LT .  1TRLMT)  GO  TO  7 
SHI  3)  =  .TRUE. 

GO  TO  2 

7  IF(SH(4)»  GO  TO  12 

IF  (RNRM1  .GT.  1.)  GO  TO  11 
SH ( 4 )  =  .TRUE. 

GO  TO  2 

11  RNRM2  =  0.00 

FIND  NEW  RESIDUE  VECTOR  AND  NEH  P  VECTOR 

00  50  1  =  1,NGLDF 
R  (  1 )  =  RID  -  ALFA*G(  1  ) 


CGC  520 
CGC  530 
CGC  540 
CGC  550 
CGC  560 
CGC  570 
CGC  CSC 
CGC  590 
CGC  600 
CGC  610 
CGC  620 
CGC  630 
CGC  640 
CGC  650 
CGC  660 
CGC  670 
CGC  6B0 
CGC  690 
CGC  700 
CGC  710 
CGC  720 
CGC  730 
CGC  740 
CGC  750 
CGC  760 
CGC  770 
CGC  780 
CGC  790 
CGC  800 
CGC  810 
CGC  820 
CGC  830 
CGC  840 
CGC  850 
CGC  860 
CGC  670 
CGC  880 
CGC  890 
CGC  900 
CGC  910 
CGC  920 
CGC  930 
CGC  940 
CGC  950 
CGC  960 
CGC  '  970 
CGC  980 
CGC  990 
CGC  1000 
CGC  1010 
CGC  1C20 


o  o  r»  o  r>  o 


50  RNRM2  =  RNRH2  ♦  R(I)  *  R(I) 

BETA  =  RNRM2/KNRM1 
00  60  1  =  1*NGL0F 

60  p ( 1 1  =  nm  *  beta  *  om 

RNRMX  =  KNRM2 
GO  TO  5 

FIND  CHANGE  IN  STRAIN  ENERGY  FROM  ALFA  £  RNRM1 

12  DELE  =  .500  *  ALFA  ♦  RNRM1 
ENGY2  =  ENGY2  -  DELE 
I F (0FLE/ENGY2  .LT.  EPS)  GO  TO  14 
SVU2)  =  .FALSE. 

GO  TO  11 

14  I F (SW( 2 1 )  GO  TO  15 
SU(2 )  =  .TRUE. 

jGO  TO  2 

15  SW( 1 )  =  .TRUE. 

CALCULATE  CONVERGENCE  PARAMETERS 

25  XNRM  =  0.00 
BNRM  =  0.00 
OELXNR  =  0.00 
DO  16  I=1,NGLCF 
XNRM  =  XNRM  +  X ( 1 )  *  XII) 

BNRM  =  BNRM  ♦  bill  *  B(IJ 

16  DELXMR  =  OELXNR  +  P(l)  ♦  P<1) 

XNRM  =  OSORT ( XNRM ) 

BNRM  =  OSORT (BNRM) 

RNRM  =  OSORT(RNRMl) 

OELXNR  =  ALFA  ♦  OSORT ( OELXNR ) 

1 F  |  .NOT.  SW( 2 ) )  OELE  =  .500  *  ALFA  *  RNRH1 

ACB  =  DELE  /  ENGY2 

RETURN 

ENO 


CGC  1030 
CGC  1040 
CGC  1050 
CGC  1060 
CGC  1070 
CGC  1080 
CGC  1090 
CGC  1100 
CGC  1110 
CGC  1120 
CGC  1130 
CGC  1140 
CGC  1150 
CGC  1160 
CGC  1170 
CGC  1180 
CGC  1190 
CGC  1200 
CGC  1210 
CGC  1220 
CGC  1230 
CGC  1240 
CGC  1250 
CGC  1260 
CGC  1270 
CGC  1/80 
CGC  1290 
CGC  1300 
CGC  1310 
CGC  1320 
CGC  1330 
CGC  1340 
CGC  1350 
CGC  1360 
CGC  1370 
CGC  1380 
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SUBROUTINE  TITLE 

TIC 

10 

c 

TIC 

20 

c 

it***************************** 

*  *  * 

TIC 

30 

c 

* 

♦ 

TIC 

40 

c 

*  SUBROUTINE  TITLE  PRINTS  THc  HEADING  ON  EACH  PAGE 

♦ 

TIC 

50 

c 

*  THIS  SUBROUTINE  IS  CALLED  BY  - 

♦ 

TIC 

60 

c 

»  MAIN 

♦ 

TIC 

70 

c 

* 

* 

TIC 

80 

c 

##**#*********♦♦**♦*!>***#♦**♦** 

♦  *  * 

TIC 

90 

c 

TIC 

100 

IMPLICIT  REAL *8  (A-H.U-Z) 

TIC 

110 

COMMON  /  HEAD  /  HEO< 1C) , ICRD, LIST ,IPAGE .LINE 

TIC 

120 

100  FORMAT  (lHl.'FEM  72-OOF  GENERAL  HEXAHEDRONS  THERMO-ELASTIC, 

VARYINTIC 

130 

1G  MATERIAL  PROPERTIES,  DANA',  9X,  'PAGE',  13) 

TIC 

140 

101  FORMAT  (1HC.10A8  ) 

TIC 

150 

LIST  =  6 

TIC 

160 

IWRT  =  6 

TIC 

170 

WRITE  (LIST ,100)  IPAGE 

TIC 

180 

WRITE  (LIST, 101)  HED 

TIC 

190 

I PAGt=  IPAGE  +1 

TIC 

200 

LINE  =0 

TIC 

210 

RETURN 

TIC 

220 

END 

TIC 

230 

SUBROUTINE  GVT< GNMAT, KEMAT ,G,P , INEL,  1TEL ) 

QVC 

10 

c 

GVC 

20 

c 

* 

******************************** 

* 

GVC 

30 

c 

* 

* 

GVC 

40 

c 

* 

SUBROUTINE  GVT  FORMS  THE  MATRIX-VECTOR  PRODUCT  KP=G  WHERE  K 

♦ 

GVC 

50 

c 

* 

REPRESENTS  THE  NUN-FORMEO  GLOBAL  STIFFNESS  MATRIX 

♦ 

GVC 

60 

c 

* 

* 

GVC 

70 

c 

* 

THIS  SUBROUTINE  IS  CALLED  BY  - 

* 

GVC 

80 

c 

* 

MAIN 

* 

CVC 

90 

c 

♦ 

CGJRD 

* 

GVC 

100 

c 

♦ 

♦ 

GVC 

110 

c 

* 

NOTE:  OVER  90  PERCENT  OF  THE  TIME  IN  STEP  3  IS  SPENT  IN  THIS 

* 

GVC 

120 

c 

♦ 

SUBROUTINE  -  IT  IS  RECOMMEND  THAT  THIS  SUBROUTINE  BE  REWRITTEN 

♦ 

GVC 

130 

c 

* 

IN  ASSEMBLY  LANGUAGE  TO  OPTIMIZE  THE  CODE. 

* 

GVC 

140 

c 

♦ 

* 

GVC 

150 

c 

* 

******************************** 

* 

GVC 

160 

c 

GVC 

170 

'REAL *8  KtMAT,  G  ,  P 

GVC 

180 

I NTLGER*2  GNMAT 

GVC 

190 

DIMENSION  GNMAT (  64,72).  KEMAT 13,2628 ) ,  GI1575),  PC1575) 

GVC 

200 

M  =  0 

GVC 

210 

DO  20  1=1,72 

GVC 

220 

K=GNMAT I INEL, I) 

GVC 

230 

DO  20  J=I»72 

GVC 

240 

L=GNMAT ( INEL,  J ) 

GVC 

250 

M=M*1 

GVC 

260 

G(K)=G<K)*KfMAT(ITEL,M)*P(U 

GVC 

270 

IH1.E0.J)  GO  TO  2C 

GVC 

280 

GIL)=G(L)+KEMAT(ITEL,M)*P(K) 

GVC 

290 

20 

CONTINUE' 

GVC 

300 

RETURN 

GVC 

310 

END 

GVC 

320 

C  MAIN  PROGRAM  STEP  3  (ITERATION  FROM  DISK  VERSION)  ESD  10 

C  ESO  20 

C  **********************************  ESO  30 

C  ♦  *  ESD  AO 

C  *  STEP  3  PfckFURHS  FIVE  FUNCTIONS  ♦  ESD  50 

C  ♦  *  ESD  60 

C  ♦  1.  COMBINES  NON-ZERO  DISPLACEMENT  BOUNDARY  CONDITIONS  WITH  *  ESD  70 

C  *  THE  FORCE  VECTOR  *  ESD  80 

C  *  *  ESD  90 

C  *  2.  SOLVES  T*:S  SYSTF.M  OF  LINEAR  EQUATIONS  BY  MINIMIZING  THE  *  ESD  100 

C  ♦  TOTAL  POTENTIAL  ENERGY  *  ESO  110 

C  *  ♦  ESD  120 

C  *  3.  CALCULATES  ANO  PRINTS  THE  STRAIN  ENERGY  AND  OTHER  *  ESD  130 

C  *  CONVERGENCE  PARAMETERS  *  ESD  14C 

C  *  *  ESD  150 

C  *  A.  PRINTS  THE  COORDINATE  ANO  THREE  CX,Y»GZ)  DISPLACEMENTS  *  ESD  160 

C  *  AT  EACH  NODE  *  ESD  170 

C  *  *  ESD  180 

C  ♦  5.  HRITES  DISPLACEMENTS  ON  DISK  AND/OR  CARDS  ♦  ESD  190 

C  *  *  ESD  200 

C  **********************************  ESD  210 

C  ESD  220 

C  **********************************  Esd  230 

C  *  *  ESD  240 

C  ♦  VARIABLE  DEFINITIONS  ANO  DIMENSIONS  FOR  STEP  3  *  ESD  250 

C  ♦  *  ESD  260 

C  *  ACB - CHANGE  IN  STRAIN  ENERGY  OVER  STRAIN  ENERGY  *  ESD  270 

C  ♦  '  *  tSD  280 

C  *  B(NGLOF) - FORCE  VECTOR  *  ESD  290 

C  ♦  *  ESD  300 

C  *  BNRM - MAGNITUDE  OF  THE  FORCE  VECTOR  *  ESD  310 

C  *  *  ESD  320 

C  *  DBC5MM)  -  NON-ZERO  DISPLACEMENT  BOUNDARY  CONDITIONS  *  ESD  330 

C  *  *  ESD  340 

C  *  DELE - CHANGE  IN  STRAIN  ENERGY  *  ESD  350 

C  *  *  ESD  360 

C  *  DFLXNR - MAGNITUDE  OF  THE  CHANGE  IN  DISPLACEMENT  *  ESD  3-70 

C  *  VECTOR  *  ESD  380 

C  *  *  ESD  390 

C  *  ENGY1 - STRAIN  ENERGY  *  ESD  400 

C  *  *  ESD  410 

C  *  ENGY2 - STRAIN  ENERGY  *  ESD  420 

C  *  *  ESD  430 

C  *  EPS - ENERGY  CONVERGENCE  TEST  PARAMETER  *  ESD  440 

C  *  *  ESD  450 

C  ♦  G(NGLDF) - RESULTING  VECTOR  FROM  XX  OR  KP  MATRIX-  *  ESD  460 

C  *  VECTOR  PRODUCT  *  ESD  470 

C  *  .  *  ESD  480 

C  *  GNMAT (NEL»72)  -  RELATES  LOCAL  AND  GLOBAL  DEGREE S-OF-FREEOOM  *  ESD  490 

C  *  *  ESD  500 

C  *  1CR0 - UNIT  NUMBER  FOR  CARD  READER  *  ESD  510 
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c 

* 

* 

ESD 

520 

c 

♦ 

JOOA - 

UNIT  NUMBER  FOR  DIRECT  ACCESS  FILE 

* 

ESD 

530 

c 

♦ 

ESD 

540 

r. 

♦ 

1X26INEL)  - 

ELEMENT  TYPE  FOR  EAC'*  ELEMENT 

♦ 

ESD 

550 

c 

■* 

* 

ESD 

560 

l 

* 

KLMAT (2628 ) - 

UPPER  SYMMETRIC  PORTION  OF  AN  ELEMENT 

* 

ESD 

570 

c 

♦ 

STIFFNESS  MATRIX  STORED  AS  A  ONE  DIMENSIONAL* 

ESD 

580 

c 

♦ 

ARRAY 

* 

ESD 

590 

c 

* 

+ 

ESD 

600 

c 

♦ 

KUUNT  - 

TOTAL  NUMBER  OF  ITERATIONS 

♦ 

ESD 

610 

c 

* 

* 

ESD 

620 

c 

* 

LDBC(NOBC)  - 

INDEX  FOR  DISPLACEMENT  BOUNDARY  CONDITIONS 

* 

ESD 

630 

c 

♦ 

* 

ESD 

640 

t 

* 

LIST - 

UNIT  NUMBER  FOR  PRINTER 

♦ 

ESD 

650 

c 

♦ 

* 

ESD 

660 

c 

* 

LLDBC(MM)  - 

INDEX  NUMBERS  FOR  NON-ZERO  DISPLACEMENT 

♦ 

ESD 

670 

c 

♦ 

BOUNDARY  CONDITIONS 

♦ 

ESD 

660 

c 

♦ 

♦ 

ESD 

690 

c 

# 

MM - 

NUMBER  OF  NON-ZERO  DISPLACEMENT  BOUNDARY 

* 

ESD 

700 

c 

* 

CONDITIONS 

* 

ESD 

710 

c 

♦ 

* 

ESD 

720 

c 

♦ 

NDBC - 

NUMBER  OF  DISPLACEMENT  BOUNDARY  CONDITIONS 

♦ 

ESD 

730 

c 

♦ 

♦ 

ESD 

740 

c 

* 

NEL - 

NUMBER  OF  ELEMENTS 

* 

ESD 

750 

c 

♦ 

* 

ESD 

760 

c 

♦ 

NGLOF  - 

NUMBER  OF  OEGREES-OF-FREEDOM  (GLOBAL  SYSTEM)* 

ESD 

770 

c 

♦ 

ESD 

780 

c 

♦ 

NTYEL  - 

NUMBER  OF  UNIOUE  ELEMENTS 

* 

ESD 

790 

c 

♦ 

♦ 

ESD' 

800 

c 

* 

P(NGLDF)  - 

CORRECTION  VECTOR  IN  CONJUGATE  GRADIENT 

♦ 

ESD 

810 

c 

♦ 

ROUTINE 

* 

ESD 

820 

c 

* 

♦ 

ESD 

83C 

c 

* 

R(NGLOF) - 

RESIDUE  VECTOR  IN  CONJUGATE  GRADIENT 

* 

ESD 

840 

c 

* 

ROUTINE 

♦ 

ESD 

850 

c 

* 

* 

ESD 

860 

c 

* 

RNRM - 

MAGNITUDE  OF  THE  RESIDUE  VECTOR 

* 

ESD 

870 

c 

♦ 

* 

ESD 

880 

L 

* 

UX(NGNP)  - 

DISPLACEMENTS  IN  THE  X-DIRECTION 

♦ 

ESD 

890 

c 

♦ 

* 

ESD 

900 

c 

* 

UY(NGNP) - ' - 

DISPLACEMENTS  IN  THE  Y-DIRECTION 

♦ 

ESD 

910 

c 

* 

♦ 

ESD 

920 

c 

* 

UZ(NGNP)  - 

DISPLACEMENTS  IN  THE  Z-DIRECTION 

* 

ESD 

930 

c 

♦ 

* 

ESD 

940 

c 

* 

XINGLOF  i - 

DISPLACEMENT  VECTOR 

* 

ESD 

950 

c 

* 

* 

ESD 

960 

c 

♦ 

XCORD(NGNP)  - 

X-COORD1NATE  (GLOBAL  SYSTEM) 

* 

ESD 

970 

c 

♦ 

* 

ESD 

980 

c 

♦ 

XT(NGNP) - 

R-COORDINATE  (GLOBAL  SYSTEM) 

* 

ESD 

990 

c 

* 

* 

ESD 

1000 

c 

* 

YCORO(NGNP)  - 

Y-COORDINATE  (GLOBAL  SYSTEM) 

* 

ESD 

1010 

c 

* 

* 

ESD 

1020 

A-3S 


YT(NGNP) 


ZCORO(NGNP)  - 


********* 


THETA-COORDINATE  {GLOBAL  SYSTEM} 
Z-COORDINA1E  (GLOBAL  SYSTEM) 


*  *  *  ********* 


******** 


***************. 


******** 


******* 


LOGICAL  SWITCH  INFORMATION  <  ALL  SWITCHES  INITIALLY  .FALSE.) 


.TRUE.  CONV 

.FALSE.  OIO 
SET  IN  CGJR 

TESTEO  IN  MAIN 


CONVERGED  TO  A  SOLUTION 

OIO  NOT  CONVERGE  TO  A  SOLUTION 

CGJRO 


.TRUE.  CHANGE 
-FALSE.  CHANGE 
SET  IN  CGJRO 
TEfTEO  IN  CGJRO 


CHANGE  IN  STRAIN  ENERGY/STRA1N  ENERGY  .LT. 
CHANGE  IN  STRAIN  ENERGY/STRAIN  ENERGY  ,GE. 


.TRUE.  EXCEL 
.FALSE.  010  N 
SET  IN  CGJRO 
TFSTEO  IN  CGJRO 


EXCEEDED  MAXIMUM  NUMBER  OF  ITERATIONS 

010  NOT  EXCEED  MAXIMUM  NUMBER  OF  ITERATIONS 

CGJRO 


.IRUE.  MAGNIT 
.FALSE.  MAGNIT 
SET  IN  CGJRO 
TESTEO  IN  CGJRO 


MAGNITUDE  OF  THE  RESIDUE  VECTOR  .LT.  1.00 
MAGNITUOL  OF  THE  RESIDUE  VECTOR  .GE.  i.00 
CGJRO 


SW(8)  .TRUE.  INITIAL  DISPLACEMENTS  READ  FROM  DISK 

.FALSE.  INITIAL  DISPLACEMENTS  READ  FROM  CARDS 

SET  IN  MAIN 
TESTEO  IN  CGJRO 

$W(5),  SW  ( 6)  *  SW ( 7 ) ,  SW(9) *  SWUO),  SWUI)  C  SW1 12)  NOT  USED 

I****************************** 

IMPLICIT  REAL*8  (A-H.O-Z) 

REAL*8KEMAT 
LUGICAL*1  SW 

I NTEGER*2  GNMAT  ,LDBC,LLDBC,  1X26 

COMMON  /  KEGN  /  KEMATI  2628),  GNMATI 120,72 ) , I X26 1 121 ) 
COMMON  /  CGVECT  /  GI 2056 ), XI28 56 ), Bt 2856 ) ,P 1 2856 ) ,R ( 2856 ) 
COMMON  /DC/  DBCI200),  LL0BCI200),  LOBCI700),  NOBC 

COMMON  /SCALAR/  FPS,  ACO ,  XNRH,  BNRH,  RNRM,DELXNR, 

1  DELE,  ENGY1,  ENGY2 , 

2  NGLOF,  LIMIT,  NLL ,  KOUNT,  ITYEL,  ITRLMT,  MM 

COMMON  /  HEAD  /  HEDl 1 0) , ICRO, LIST , IPAGE , LINE 
COMMON  /SWITCH  /  SW(12) 


*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  *  ESD 

ESD 

*  *  ESD 

*  ESD 

*  ESO 
ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESO 
EPS*  ESD 
EPS*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESO 

*  ESD 

*  tSD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  ESD 

*  *  ESD 

ESD 

ESD 

ESD 

ESD 

ESD 

ESD  ’ 

ESO 

ESD 

ESD 

ESD 

ESD 

FSD 

ESD 

ESO 
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C  CAUTION:  00  NOT  DIMENSION  UX  GREATER  THAN  1314  -  SEE  EQUIVALENCE  ESD 
C  STATEMENT  BLLOW  ESD 

C  ESO 

DIMENSION  XCORDI 952) ,  YCORD1952),  ZC(3RD!9D2),  ESD 

1  UXI952),  UY!952),  UZ<952)  ESD 

EQUIVALENCE  ( XCCRD! 1  I  ,G  ( 1 ))  ,  !YC0RD!1)  ,B(1I),  (ZCORDU),  PtlDESD 

EQUIVALENCE  (XES-.ril),  UX(1H  , !KEMAT ! 1315 ) ,  UY!1))  ,  ESD 

1  t«!l),  UZI1I)  ESD 

100  FORMAT (215»?F10. Of  15  J  ESD 

102  FORMAT ( 5Z16 )  •  ESD 

2C1  FORMAl I'OKAXIMUH  NUMBER  OF  ITERATIONS  FOR  THIS  RUN  IS*  ,  151  ESD 

301  FORMAT (• ODE LT A  STRAIN  ENERGY  /  STRAIN  ENERGY  DID  CONVERGE  TO  •  ESD 

1  ,  E14.7f •  AFTER*  ,  16,  •  ITERATIONS  AND  ACCURATE  T0*,E14.7)  ESD 

302  FORMAT (•  TIME  IN  CG  SUBROUTINE  IS  •  ,  F7.2,  •  SECONDS')  ESD 

303  FORMAT! *GUFLT A  STRAIN  ENERGY  /  STRAIN  ENERGY  DID  NOT  CONVERGE  TO  'ESD 

1  f  E 1 4.7f •  AFTER*  ,  lb,  *  ITERATIONS  BUT  ACCURATE  T0NE14.7)  ESO 

304  FORMAT  f '  0 '  ,  G14.7,  •  IS  THE  INITIAL  GUESS  FOR  ALL  DISPLACEMENTS*)  ESD 

305  FORMAT  ! ’OTHE  INITIAL  GUESSES  FOR  DISPLACEMENTS  ARE  READ  FROM  CARDESD 

IS  AND  MULTIPLIED  BY  A  FACTOR  OF*  ,  G14.7)  ESD 

306  FORMAT  (  'OTHE  INITIAL  GUESSES  FOR  DISPLACEMENTS  ARE  READ  FROM  CARDESD 
IS  AND  THE  Z -CIS PLACEMENTS  ARE  MULTIPLIED  BY  A  FACTOR  OF*,  G14.7)  ESD 

307  FORMATI'OTHE  INITIAL  GUESSES  FOR  DISPLACEMENTS  ARE  READ  FROM  DISK'ESD 

1  )  fcSU 

300  FORMAT! ‘OSTRAIN  ENERGY',  T50,  E14.7  ,*  K  IN-LBS*  /  ESD 

1  •  CHANGE  IN  STRAIN  ENERGY*,  T50,  E14.7  ,*  K  IN-LBS*  /  ESO 

2  •  MAGNITUDE  OF  THE  RESIDUE  VECTOR*,  T5C,  E14.7  ,*  K  LBS*/  ESD 

3  •  MAGNITUDE  OF  THE  FORCE  VECTOR*,  T50,  E14.7  ,»  K  LBS*/  ESD 

4  •  MAGNITUDE  OF  THE  CHANGE  IN  DISPLACEMENT  VECTOR*, T50,E14.7ES0 

5,'  IN*/*  MAGNITUDE  OF  THE  DISPLACEMENT  VECTOR',  T50,  E14.7,'  IN*)ESD 

2000  FORMAT !'C*,7X,'N0DE',13X, 'X-COUKO' , 13X,  'Y-COORD ' , 13 X,  'Z-COORD*,  ESD 
1  9X ,  *X-DI  SPL* ,  I3X,  '  Y-DI SPL '  ,  '.3X»  »Z-DISPL'  /  ECO 

?  27X ,  'INS',  17X,  • INS • , 17X,  'INS*,  I3X,  'INS*,  17X,  'INS',  ESD 

3  17X,  'INS'  /  )  ESD 

2C01  F ORMAT (6X»  15,  3F2C.5,  3E2C.7)  ESD 

DETINE  FILE  3(55, 6500, U, IOXDA)  ESD 

J-UOA  =  3  ESD 

I  CRD  =  5  FSD 

LIST  =  6  ESO 

C  ESD 

C  READ  CARO  DATA  FOR  STEP  3  .  ESD 

C  BSD 

RE  AD ! ICR 0, 100 ) INTXMD, 1 TRLMT,  FACTOR,  EPS,  IDSPL  ESD 

C  ESD 

C  READ  OATA  GENERATED  IN  STEP  2  FSD 

C  ESD 

REA!)  UUOA'l)  NEL,  NGLOF ,  NOBC,  NTYEL,  LIMIT,  NGNP»NMTL»  ESD 

l  HED,  I  PAGE,  AMBTMP  ESP 

READ  IIUOA'*.)  (  B1J)  ,J  =  1,NGLDF)  ESD 

1  ,  SW,  NOCNV,  (LOBCt J),J=1,NDBC)  ESD 

READ  IIUOA'S)  (  P! J ) , J=1 ,NGLDF )  ESD 

1  ,  11X26! J),J=1, NEL)  ESD 


1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
•  1750 
1760 
1770 
1780 
1790 
1800 
181G 
1820 
1830 
1640 
185C 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
199C 
2000 
2010 
2020 
203!> 
?0*,0 
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READ  ( IUOA ' 6i  { (GNMAT(I,J),J=1,72J,1=1 

,NELJ 

ESD 

2050 

1 DXUA  =  NTYtL+7 

ESD 

2060 

CALL  TITLE 

ESD 

2070 

WR1TEUIST ,201)  ITRLHT 

ESD 

2080 

ESD 

2090 

DETERMINE  INITIAL  GUESS  FOR  THE  DISPLACEMENT  VECTOR 

FSO 

2100 

ESD 

2110 

GO  TO  (  21 » 22 *23 » 24  1 ,  INTXMU 

ESD 

2120 

21  CO  50  I=1,NGL0F 

ESD 

2130 

50  XU)  =  FACTOR 

ESD 

2140 

WRITE ( LIST  *304 )  FACTOR 

ESD 

2150 

GO  TO  29 

ESD 

2160 

22  REA0(5* 102 )  < Xl J> , J=1 .NGLDFJ 

ESD 

2170 

DO  61  1=  1  *NGLOI: 

ESD 

2180 

61  X(11  =  FACTOR*X( I  ) 

ESD 

2190 

WRITE ( LI  ST  *3051  FACTOR 

ESD 

2200 

GO  TO  29 

ESD 

2210 

23  READ( 5* 102  J  ( X ( J  )  , J=1 ,NGLUF I 

ESD 

2220 

00  10  I=1,NGNP 

ESD 

2230 

10  X ( 3* 1 )  =  F ACTOR wX  1 3*1 I 

ESD 

2240 

WRITE (LI  ST*  306 )  FACTOR 

ESD 

2250 

GO  TO  29 

ESD 

2260 

24  READ  ( 1UDA ' 10X0 A ) SW*MM *  (OBC ( J J ,J=1,MH) , 

CLLDBCl JJ,J=1, 

MM  I,  (COUNT 

,  ESD 

2270 

1  (X(J)*J=1,NGL0F) 

ESD 

2280 

SW(8I  =  .TRUE. 

ESD 

2290 

swoi  =  .false. 

ESD 

2300 

35  IF(  .NOT.  SW(10)  I  GO  TO  33 

ESD 

2310 

MM  =  0 

ESD 

2320 

33  READ  ( 1UUA • IDXDA )  ( B ( J ) , J=1 , NGLOF) 

ESD 

2330 

WRIT  E ( LI  ST  *307 ) 

ESD 

2340 

GO  TO  34 

ESD 

2350 

29  CONTINUE 

ESD 

2360 

ESD 

2370 

CONVERT  INITIAL  DISPLACEMENT  BOUNDARY  CONDITIONS  TO  FORCE 

BOUNDARY 

ESD 

2380 

CONDITIONS 

ESD 

2390 

ESD 

2400 

MM  =  0 

ESD 

2410 

DO  60  1=1, NGLOF 

ESD 

2420 

I F (  DABS ( P ( 1 1 )  .LT.  l.D-14)  GO  TO  60 

ESD 

2430 

HM  =  MM  4  1 

ESD 

2440 

DBC(MM)  =  P(l> 

ESD 

2450 

LLDBC(MM)  =  1 

LSD 

2460 

60  CUN71NUE 

ESD 

2470 

DO  13  1=1, NGLOF 

ESD 

2480 

13  G(I)  =  C.DO 

LSD 

2490 

00  15  INEL=1,NEL 

ESD 

2500 

LOE  =  IX26UNELJ  ♦  6 

ESD 

2510 

READ(3*L0E)  KEMAT 

ESD 

2520 

15  CALL  GVTtGNMAT,  KEMAT,  G,  P,  1NEL) 

ESD 

2530 

DU  eO  1=1, NGLOF 

ESO 

2540 

80  B  ( 1 )  =  BUI  -  G(I) 

ESO 

2550 

A-38 


ooo  ooo  ooo  ooo 


34  CALL  TIMON 


MINIMIZE  TOTAL  POTENTIAL  ENERGY 

CALL  CG.IRO 

CALL  T  IMtCK (IT IME ) 

SEC  =  IT  IME/100 . 

HRITE  FORCE  AND  DISPLACEMENT  DATA  ON  DISK  FOR  USE  IN  FUTURE  RUNS 


IF (  MM  .NE.  0  )  GO  TO  31 
SWllO)  =  .TRUE. 

MM  =  1 

OBCt 1)  =  CUP 
21  1DXDA  =  NTYEL  +  7 

WRlTEllUDA* 1DXDA) SW,MM  »  (DEC! J  )  ,J  =  1,MM) ,  ILLDBC ( J ) ,J  =  1 .MM 
1  <X(JJ,J=1,NGL!!F  J 

WRITEUUOA'IOXOA)  <B<J),J=l,NGLOc) 


ESD 

ESD 

ESD 

ESD 

ESD 

ESD 

ESD 

ESD 

ESO 

ESD 

ESD 

ESD 

ESD 

ESD 

ESD 


2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

26B0 

2690 

2700 


PRINT  STRAIN  ENERGY  AND  CONVERGENCE  DATA 


PRINT  AND/OR  PUNCH  THE  DISPLACEMENT  VECTOR 


READ  1 1UD A ' 3  M  XCORO ( J ) , J-l ,  NGNP ) , 
1  ( ZCORDI J) * J=1»NGNP ) 

CALL  TITLE 
WR1TEUIST  ,i000) 

DO  30  1=1, NGNP 
IFILINE  .LT.  481  GO  TO  94 
CALL  TITLE 
HR1TE(L1ST,2000) 

94  CONTINUE 

LINE  =  LINE  ♦  1 
UXII5  =  X  (  3  ♦  I  -2  J 
UY(1J  =■  X(  3*1-1 ) 

UZ(I)  =  X( 3*1 ) 

30  WRITE (LIST ,2001 ) 

1 


I YCORDC J ) » J=1 »NGNP)  , 


1. 


XCURDU)  , 
UX  ( I  >  ,  U Y ( I ) ,  U2(IJ 
IFI1DSPL  .r-0.  1)  GO  TO  32 
43  WRITEI7,102)  ( Xf 1 ) , 1 = 1 ,NGL0F ) 

32  STOP 
END 


YCORDII),  ZCORDI I ) < 


KOUNT , ESD  2710 
ESD  2720 
ESD  2730 
ESD  2740 
ESD  2750 
ESD  2760 


IFISWCDI  GU  TO 

20 

ESD 

2770 

WRITEILIST.303) 

EPi,  KOUNT,  ACB 

ESD 

2780 

GO  TO  9 

ESD 

2790 

20 

WRITE (LIST ,301 ) 

EPS,  KOUNT,  ACB 

ESD 

2800 

9 

WRITE! LIST ,302) 

SEC 

ESD 

2810 

WR IT  E ( LI  ST ,308 ) 

( NGY 1 ,  DELE,  RNRM,  BNRH,  DELXNR,  XNRM 

ESD 

2820 

IM1USPL  .EO.  C) 

GO  TO  32 

ESD 

2830 

IFJIOSPL  .EO.  2 1 

GO  TO  43 

ESD 

2840 

ESD  2850 
ESD  2860 
ESD  2870 
ESD  2680 
ESD  2690 
ESD  2900 
ESD  2910 
ESD  2920 
ESO  2930 
ESD  2940 
ESD  2950 
ESD  2960 
ESD  2970 
ESD  2980 
ESD  2990 
ESD  3000 
ESD  3010 
ESD  3020 
ESD  3030 
ESD  3040 
ESD  3050 
ESD  3060 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE  CGJRD 

CGD 

10 

CGD 

20 

* 

******************************* 

*  o  CGD 

30 

♦ 

*  CGD 

40 

♦ 

SUBROUTINE  COJRD  MINIMIZES  THE  TOTAL  POTENTIAL  ENERGY  BY  THE 

*  CGD 

50 

♦ 

CONJUGATE  GRADIENT  METHOD  AND  TESTS  THE  STRAIN  ENERGY  FOR 

*  CGD 

60 

♦ 

CONVERGENCE 

*  CGD 

70 

* 

*  CGD 

80 

* 

THIS  SUBROUTINE  IS  CALLED  BY  - 

*  CGD 

90 

♦ 

MAIN 

*  CGD 

100 

♦ 

*  CGD 

110 

* 

THIS  SUBROUTINE  CALLS 

*  CGD 

120 

♦ 

GVT 

*  CGD 

130 

♦ 

*  CGD 

140 

♦ 

******************************* 

*  *  CGD 

150 

CGD 

loO 

CGD 

170 

•IMPLICIT  REAL*8  (A-HtO-7 ) 

CGD 

180 

RE AL*BKEMAT 

CGD 

190 

INTEGERS  GNMAT.LOBC.LLOBC, 'lX26 

CGD 

200 

LOGICAL* 1  SW 

CGD 

210 

COMMON  /  KEGN  /  KCMA T (  262B),  GNMAT (IZ0,72),IX26(  121) 

CGD 

220 

COMMON  /  CGVECT  /  GI2856 ) ,X( 2856) , B< 2856) »P (2856 > ,R ( 2856) 

CGD 

230 

COMMON  /SCALAR/  EPS,  ACB,  XNRM,  BNRM,  RNRM, DELXNR , 

CGD 

240 

1  DELE,  ENGY1,  ENGY2, 

CGD 

250 

c  NGLUF,  LIMIT,  NEL,  MOUNT,  ITYEL,  ITRLMT,  HM 

CGD 

260 

COMMON  /BC/  DBC( 200) ,  LLDBC(2C0),  LDBC(700),  NOBC 

CGD 

270 

COMMON  /SWITCH  /  SWI12) 

CGD 

280 

ITKNT  =  0 

CGD 

290 

IF (SW( 8 )  )  GO  TO  2 

CGD 

300 

KOUNT  =  r 

CGD 

310 

BETA  =  O.DO 

CGD 

320 

CGD 

330 

RES I ART  ITERATIVE  PROCESS  BY  FINDING  NEW  RESIDUE  VECTOR 

CGD 

340 

CGD 

350 

2 

DO  10  I  *  I, NGLUF 

CGD 

360 

10 

G  ( I )  =  O.DO 

CGD 

370 

DO  70  1=1 ,NDBC 

CGD 

380 

B ( LDBC ( I ) )  =  O.DO 

CGD 

390 

70 

X ( LDBC ( 1 ) )  =  O.DO 

CGD 

400 

DO  31  INEL  =  1,NF.L 

CGD 

410 

LOE  =  IX26I1NEL)  ♦  6 

CGD 

420 

RE AD (3  *LQE )  KEMAT 

oGD 

430 

31 

CALL  GVT(GNHAT,  KEMAT,  G,  X,  INELJ 

CGD 

440 

DO  32  1=1,NDBC 

CGD 

450 

32 

G  ( LDBC ( I ) )  =  0.00 

CGD 

460 

RNRH1  =  O.DO 

CGD 

470 

DO  20  1  =  l.NGLDF 

CGD 

480 

P(l)  =  B(I)  -  G(I ) 

CGD 

490 

R(I)  =  P(I) 

CGD 

500 

20 

RNRM  1  =  RNRM1  ♦  RII)  *  RII) 

CGO 

510 

o 
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CALCULATE  STRAIN  ENERGY 

1 F (  .NOT.  {  5W  ( 3 )  .OR.  SW(4)>)  GO  TO  5 
IF  (MM  .EO.  CO  GO  TO  95 
00  VO 

90  X ( LLDBCI I ) )  =  DBC (  I ) 

95  tNGYl  =  0.00 
00  17  1  =  1 1 NGLOF 
17  G ( I )  =  0.00 

00  34  I NEL=1,NEL 
LOE  =  1X26 ( 1NEL )  +  6 
Kl A0( 3  *L0£ )  KEMAT 

34  CALL  GVUGNM'T,  KEMAT,  G,  X,  1NEL1 
DO  92  1=1, NGLOF 

o?  FNC-Y1  =  ENGY1  ♦  XU)  *  Gill 
ENGY1  =  . 50C  *  ENGY1 
.  ENGY2  =  ENGY1 

FIND  ALFA 

5  00  36  1=1, NGLOF 

35  G ( 1 )  =  0.00 

00  33  INEL= 1 , NEL 
LOE  =  1X26UNEL)  ♦  6 
REAOO'LOE )  KEMAT 

33  CALL  GVT (GNMAT ,  KEMAT,  G,  P,  INtU 
00  36  1=1 »ND8C 

36  G ( LOPC ( I ) J  =  0.03 
PKP  =  0.00 

00  30  I  =  1, NGLOF 
30  PKP  =  PKP  ♦  P1I)  *  G( 1  ) 

ALFA  =  RNKM1  /  PKP 
IF  (SW<3))  GO  TO  25 

CORRECT  THE  DISPLACEMENT  VECTOR 

00  40  I  =  1, NGLOF 
40  X(ll  =  XU)  ♦  ALFA  *  P(l) 

ITKNT  =  ITKNT  ♦  l 
KOUNT  =  KOUNT  ♦  1 
1FUTKNI  .LT.  ITRl.MT)  GO  TO  7 
SW (31  =  .TRUE. 

GO  TO  2 

7  I F ( SH ( 4 ) )  GO  TO  12 

IF  (RNRM1  .GT-  ) , )  GO  TO  11 
SW(4)  =  .TRUE. 

GO  TO  2 

11  RNRH2  =  0.00 

FIND  NEW  RESIDUE  VECTOR  ANO  NEW  P  VECTOR 


CGD  520 
CGD  530 
CGD  540 
CGD  650 
CGD  560 
CGD  570 
CGD  580 
CGD  590 
CGD  600 
CGD  610 
CGD  620 
CGD  630 
CGD  640 
CGD  650 
CGO  660 
CGD  670 
CGD  680 
CGD  690 
CGD  700 
CGD  710 
CGD  720 
CGD  730 
CGD  740 
CGD  750 
CGD  760 
CGO  770 
CGD  780 
CGD  790 
CGD  800 
CGD  810 
CGD  820 
CGD  830 
CGD  840 
CGD  850 
CGD  860 
CGD  870 
CGD  880 
CGD  890 
CGD  500 
CGD  910 
CGD  920 
CGD  930 
CGD  940 
CGD  950 
CGD  960 
CGD  970 
CGO  980 
CGD  990 
CGD  1000 
CGD  1010 
CGD  1020 
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c 


00  50  I  =  1 »NGLDF 
R  ( I )  =  K(2)  -  ALFA*G(I) 

50  .’.NRf'.  =  RNRM?  ♦  R1IJ  *  R(I) 

BETA  =  RNRM2/RNRM1 
DO  60  I  =  l.NGLOF 

60  P(l»  =  K( 1 >  ♦  BETA  *  P(l) 

RNKM1  =  RNRM2 
GO  TO  5 

BIND  CHANGE  IN  STP.AIN  ENERGY  FROM  ALFA  C  RNRM1 

12  OELF.  =  .  5DP  *  ALFA  *  RNRH1 
ENGY2  =  ENGY2  -  DELE 
IF (DELE/ENGY2  .LT.  EPSI  GO  TO  14 
SW(2J  =  .FALSE. 

.GO  TO  11 

14  I F (SWI2 ) )  GO  TO  15 
SHU  )  =  .TRUE. 

GO  TO  2 

15  SH(1 J  =  .TRUE. 

CALCULATE  CONVERGENCE  PARAMETERS 

25  XNKM  s  C .DO 
ItNRM  =  0.00 
OELX.'ik  =  0.00 
DO  16  1=1 ,NGLDF 
XNRM  =  XNKM  ♦  X(I>  *  X  C I  ) 

BNRM  =  BNRH  ♦  B(I )  ♦  B(I  ) 

16  OELXNR  =  DELXNR  ♦  P(I)  *  Pill 
XNRM  =  DSORT(XNRII) 

BNRM  =  OSt)RT(  BNRM  ) 

RNRM  =  USORT ( RNRM1 ) 

OELXNR  s  ALFA  *  DSURT { OELXNR) 

I F (  .NOT.  SHI  2) )  DELE  =  .500  ♦  ALFA  *  RNRM 1 
ACE  =  DELE  /  LNGY2 
RE  TURN 
END 


CGD  1030 
CGD  1040 
CGD  1050 
CGD  1060 
CGD  1070 
CGD  1060 
CGD  1090 
CGD  1100 
CGD  1110 
CGD  1120 
CGD  1130 
CC-D  1140 
CGD  1150 
CGD  1160 
CGD  1170 
CGD  1180 
CGD  1190 
CGD  1200 
CGD  1210 
CGD  1220 
CGD  1230 
CGD  1240 
CGD  1250 
CGD  1260 
CGD  1270 
CGD  1280 
CGD  1290 
CGD  1300 
CGD  1310 
CGD  1320 
CGD  1330 
CGD  1340 
CGD  1350 
CGD  1360 
CGD  1370 
CGD  1380 
CGD  1390 
CGD  1400 
CGD  1410 
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SUBROUTINE  11TIE 

TID 

10 

c 

TID 

20 

c 

* 

****************************** 

*  ♦  * 

TID 

30 

c 

* 

* 

TID 

40 

c 

* 

SUBROUI INI  TITLE  PRINTS  THE  HEADING  ON  EACH  PAGE 

* 

TID 

50 

c 

♦ 

THIS  SUBROUTINE  IS  CALLED  BY  - 

* 

TID 

60 

c 

* 

MAIN 

* 

TID 

70 

c 

* 

♦ 

TID 

80 

c 

* 

****************************** 

*  *  ♦ 

TID 

90 

c 

TID 

100 

IMPLICIT  RE AL*8  (A-H.O-Z) 

TID 

110 

COMMON  /  HEAD  /  HED( 10) , 1CRD , LIST , IP AGE, LINE 

TID 

120 

100 

FORMAT  ( 1H1 , ' FEM  72-OOF  GENERAL  HEXAHEDRONS  THERMO-ELASTIC, 

VARY1NTID 

130 

1G  MATERIAL  PROPERTIES,  DANA*,  9X,  'PAGE*,  13) 

TID 

140 

101 

FORMAT  ( 1H0 , 1 OAO  ) 

TID 

150 

LIST  =  6 

TID 

160 

•I HRT  =  6 

T1U 

170 

WRITE  (LIST, 101)  1 PAGE 

TID 

160 

WRITE  (LIST, 101)  MED 

TID 

190 

I PAGE=  1  PAGE  +1 

TID 

200 

LINE  =  0  ' 

TID 

210 

RETURN 

TID 

220 

END 

TID 

230 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  GVT<GNMA7fKEMATfG,P*lNEL) 

GVD 

10 

GVD 

20 

* 

*************************** 

*  * 

*  *  * 

♦ 

GVD 

30 

* 

* 

GVD 

40 

* 

SUPndUT INE  G7T  cOKMS  THE  MATRIX-VECTOR  PRODUCT  KP=G  WHERE 

i  K 

* 

GVD 

50 

* 

REPRESENTS  THE  NON-FORMEU  GLOBAL  STIFFNESS  MATRIX 

* 

GVD 

60 

♦ 

♦ 

GVD 

70 

♦ 

THIS  SUBROUTINE  IS  CALLED  BY  - 

* 

GVD 

80 

♦ 

MAIN 

* 

GVD 

9C 

CGJRD 

* 

GVD 

100 

* 

* 

GVD 

no 

♦ 

NOTE:  OVER  VO  PERCENT  OF  THE  TIME  IN  STEP  3  IS  SPENT 

IN 

THIS 

* 

GVD 

120 

♦ 

SUBROUTINE  -  IT  IS  RECOMMEND  THAT  THIS  SUBROUTINE  BE 

REWRITTEN 

♦ 

GVD 

130 

* 

IN  ASSEMBLY  LANGUAGE  TO  0PTIMI2E  THE  CODE. 

♦ 

GVD 

140 

* 

* 

GVD 

150 

♦ 

*************************** 

♦  * 

♦  *  ♦ 

* 

GVD 

160 

GVD 

170 

RE AL*fl  KEMAT,  G  ,  P 

GVD 

180 

INTEGER* 2  GNMAT 

GVD 

190 

DIMENSION  GNMAT«I20,72J,  KEHAT<2628),  GI2856),  P12856) 

GVD 

200 

M=C 

GVD 

210 

DO  2C  1=1,72 

GVO 

220 

K=GNMAT( 1NEL,  I ) 

GVD 

230 

UO  20  J= 1 ,72 

GVD 

240 

L=GNMAT( INEL.J) 

GVD 

250 

M=M*  1 

GVD 

260 

G(K)=GIK)*KEMAT(M)*P(L> 

GVD 

270 

IF(I.EO.J)  GO  TO  2C 

GVD 

280 

GIL) =(» (L)*KEMAT(M)*P(K) 

GVD 

290 

20 

CONTINUE 

GVD 

300 

RETURN 

GVD 

310 

END 

GVD 

320 
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C  MAIN  PROGRAM  STEP  4  MN4.  10 

C  MN4  20 

C  **********************************  MN4  30 

C  *  STEP  4  PERFORMS  THREE  FUNCTIONS  *  MN4  40 

L  *  *  MN4  50 

C  *  1.  READ  PROBLEM  DATA  AND  DISPLACEMENTS  FROM  DISK  *  MN4  60 

C  ♦  *  MN4  70 

C  ♦  2.  CALCULATES  SIX  STRtSS  COMPONENTS  AT  EACH  NODE  FOR  EACH  *  MN4  BO 

C  *  ELEMENT  IN  RECTANGULAR  OR  CYLINDRICAL  COORDINATES  *  MN4  90 

C  *  *  MN4  100 

C  *  3.  PRINTS  STRESSES  AND/OR  CYLINDRICAL  DISPLACEMENTS  *  MN4  110 

C  *  .  *  MN4  120 

C  **********************************  *N4  130 

C  HN4  140 

c  **********************************  MN4  150 

C  *  *  MN4  160 

C  ♦  VARIABLE  DEFINITIONS  AND  DIMENSIONS  FOR  STEP  4  *  MN4  170 

C  *  "  *  KN4  180 

C  *  ALFAl(NMTL)  -  THERMAL  EXPANSION  COEFFICIENT  11  *  MN4  190 

C  ♦  *  MN4  200 

C  *  ALFA2INMTU  -  THERMAL  EXPANSION  COEFFICIENT  22  *  MN4  210 

C  *  *  MN4  220 

C  *  ALFA3 (NMTL )  -  THERMAL  EXPANSION  COEFFICIENT  33  ♦  MN4  230 

C  *  *  MN4  240 

C  *  AM8TMP - INITIAL  TEMPERATURE  *  MN4  250 

C  *  *  MN4  260 

C  ♦  0(6, 6! - ELASTIC  MATRIX  *  MN4  270 

C  *  *  HN4  280 

C  ♦  E (NMTL, 9,NTMP )  - MATERIAL  PROPERTIES  *MN4  290 

C  ♦  *  MN4  300 

C  ♦  ETM(9)  -  -  NINE  INDEPENDENT  ORTHOTROPIC  MATERIAL  *  MN4  310 

C  *  CONSTANTS  *  MN4  320 

C  *  *  MN4  330 

C  *  F 1U0RT (NMTL)  -  OIRECT ION  OF  PRINCIPAL  AXIS  FOR  FACH  *  MN4  340 

C  *  MATERIAL  *  MN4  350 

C  ♦  *  HN4  360 

C  ♦  I  CRD - -  UNIT  NUMBER  FOR  CARD  READER  *  MN4  370 

C  ♦  *  HN4  380 

C  ♦  1  SIRS - CODE  TO  SP(CIFY  STRESSES  IN  RECTANGULAR  OR  *  MN4  390 

C  *  CYLINDRICAL  COORDINATES  *  *  MN4  400 

C  ♦  »  MN4  410 

C  ♦  11JDA - UNIT  NUMBER  FOR  DIRECT  ACCEC.  FILE  ♦  MN4  420 

C  *  *  MN4  430 

C  ♦  1  X(  NEL,  27 ) - RELATES  LOCAL  AND  GLOBAL  NODAI.  POINTS  *  MN4  440 

C  *  *  MN4  450 

C  *  LIST - UNIT  NUMBER  FOR  PRINTER  *  MN4  460 

C  *  *  HN*»  470 

C  *  HTLND(NGNP)  -  MATERIAL  AT  EACH  NODE  *  MN4  480 

(.  ♦  *  MN4  490 

C  *  NEL - NUMBLR  OF  LLEMENTS  *  MN4  500 

C  *  *  MN4  510 
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N *.-»P ( r  .TL) 


NUMBER  OF  MATERIALS 


EACH  ELEMENT 


TMPEL(NMTL,NTMP)  -  TEMPERATURES  AT- WHICH  MATERIAL  PROPERTIES 
ARE  SPECIFIED  FOR  EACH  MATERIAL 

THPND(NGNP)  -  FINAL  NOOAL  POINT  TEMPERATURES 


U(NGLNF) 


DISPLACEMENT  VECTOR 


UX(NGNP)  -  X-DIRECT ION  DISPLACEMENTS 


UY(NGNP) 


UZ  { NGNP ) 


Y-DIRECTION  DISPLACEMENTS 


-  /-DIRECTION  DISPLACEMENTS 


X (NGNP ) 
Y (NGNP) 
Z (NGNP I 


X— COORDINATE  (GLOBAL  SYSTEM) 


Y-COORDINATE  (GLOBAL  SYSTEM) 
Z-COORDINATL  (GLOBAL  SYSTEM) 


l  ********************************** 

■ 

IMPLICIT  RE AL*6  (A-H.O-Z) 

LOGI CAL* 1  SW112) 

INTEGERS  IX,  MTLND,  LLDBC(200) 

COMMON  /  GENLS  /  NEC,  NGLOF ,  NGNP,  NMTL,  INEL,  1LNP,  IGNP,  IMTL 
COMMON  /MATL  '/  L(9, 9,101,0(6, 6),  FI80RT{9),  ALFA1 ( 9 ) * 

1  ALFA2I9)',  ALFA3 (9) .AMBTHP  ,ETM(9),  TMPEL{9,10),  NTMP(9J 
COMMON  /  NODAL  /  XI1015),  Y(1015),  ZI1015),  UX 1 101 5  )  ,UY( 10 15 ) , 

1  UZ( 10 15 ) ,  TMPNDU015),  U(3045),  ALFTMPJ6 ) ,  XT(1015),  YT(1015), 

2  ISTRS,  1X1 144,27) ,  MTLND!1015) 

COMMON  /  HEAD  /  HEO( 1C), ICRO, LIST, IPAGE, LINE 
100  FORMAT (I  5) 

2000  FORMAT ( • O' ,7X , ’NODE  * , 1 3X , • R -COORD' , 1 IX ,  «THET A-COORD * , 11X , 

1  * Z-CUURD ',  (JX , • RAD-D1SPL ' ,  1 2X, 'TANG-DISPL* ,  11X,  'Z-OISPL'  / 

2  27X,  'INS',  15X,  'OIGRFES',  15X,  'INS',  13X,  'INS',  I7X, 

3  'DEGREES',  14X,  'INS'  /) 

2C01  FORMAT (6X«  15,  3F20.5,  3E2C.7) 

DIMENSION  DBC( 20^) 

DEFINE  FILE  3 ( 55, 6500 ,U, IOXDA ) 

LIST  =  6 
ICRO  =  5 
IUDA  =  3 

:  READ  STRESS  TYPE  CODE 


>*  MN4 

520 

*  MN4 

530 

*  MN4 

540 

*  MN4 

550 

*  MN4 

560 

*  MN4 

570 

*  MN4 

580 

*  MN4 

590 

*  HN4 

600 

*  MN4 

610 

*  HN4 

620 

*  MN4 

630 

*  MN4 

640 

*  MN4 

650 

*  MN4 

660 

*  HN4 

670 

»  MN4 

680 

*  MN4 

690 

*  MN4 

700 

*  MN4 

710 

*  MN4 

720 

♦  MN4 

730 

♦  HN4 

740 

*  MN4 

750 

*  MN4 

760 

*  MN4 

770 

*  HN4 

700 

MN4 

790 

MN4 

800 

MN4 

810 

MN4 

820 

MN4 

830 

MN4 

840 

MN4 

850 

MN4 

860 

,  MN4 

870 

MN4 

880 

MN4 

890 

MN4 

900 

MN4 

910 

MN4 

920 

MN4 

930 

MN4 

940 

MN4 

950 

MN4 

960 

HN4 

970 

MN4 

980 

MN4 

990 

HN4 

1000 

Mf)4 

1010 

MN4 

1020 

oooo  ooo  o  o  o 


READ I ICRD, 103 )  ISTRS 

READ  DATA  GtNERATEO  IN  STEP  2  -  PROBLEM  DATA 


REnu  CuUA't)  NCL»  NGLDF,  NOBC,  NTYEL*  LIMIT,  NGNPtNMTL, 

1  HEO,  IPAGE,  AMBTMP 

READ  UUDA'2)  IINTMPIJ),  FIBORTIJ),  ALFA1IJ),  ALFA2  (  J  >  ,  ALFA31  J)  ) 

1  (TMPEL ( J, I ) ,  IE(J,L,I),L=1,9),  1=1,10),  J=1,NMTL) 

2  ,  (( 1X(1,J),J=1,27),I=1,NEL), 

3  (TMPND(J),  MTLNOIJ) ,J=1,NGNP) 

READ  ( 1UDA  *  3)  ( X ( J ) , J=1 »NGNP  )  ,  ( Y( J ) , J  =  1,NGNP ),(Z(J),J  =  1,NGNP) 

READ  DATA  GENERAI ED  IN  STEP  3  -  DISPLACEMENTS 
IDXOA  =  NJYEL+7 

READ  UUDA'lDXPAISWiMM,  ( OBC ( J  )  , J  =  1 , MM ) ,  (LLDBC ( J) , J  =  1 ,MM ) ,  KOUNT 
1  UK J),  3=1, NGLDF) 

IF  ( ISTRS  .EG.  0)  GO  TO  12 

TRANSFORM  X  AND  Y  RECTANGULAR  COORDINATES  TO  R  AND  THETA 
CYLINDRICAL  COORDINATES 


DO  3  I =1 »NGNP 

XT  ( I  )  =  OSC'RT  IX(I)*xm  ♦  Y 1 1 ) *Y( I  )  ) 
3  YT ( I  )  =  180.00  *  DA  I AN2 ( Y ( I ) ,  X(I)  ) 

I F ( ISTRS  .ED.  1)  GO  TO  12 


3.1415926535897900 


PRINT  DISPLACEMENTS  IN  CYLINDRICAL  COORDINATES 

CALL  TITLfc 

HR  1 1 E ( LI  ST , 2000) 

DO  30  1=1, MGNP 
I F ( LINE  .LT.  48)  GO  TO  94 
CALL  TITLE  ' 

WR1TEILIST ,2000) 

94  CONTINUE 

LINE  =  LINE  ♦  1 

UX(I)  =  U( 3* 1-2 )  *  0C0SI3.14159265358979D0  *  YT II)  /  100. DO) 

l  ♦  UI3M-1)  *  US  INI  3.  14159265  358979UO  *  YT  I  1 )  /  180.00) 

UYII)  =-U(3*I-2)  *  0S1NI3. 1415926535897900  ♦  YT  1 1 )  /  180. DO) 

1  +  U(3*I-n  *  0CUSI3. 1415926535897900  ♦  YTII)  /  180. DO) 

UZII)  =  U13*I) 

30  WRITE IL1 ST ,2001 )  I,  XT  1 1  ) ,  YT 1 1 ) ,  Z( I ) ,  UXI I ) ,  UY 1 1 ) ,  UZ 1 1 ) 
1FIISTRS  .EO.  2)  GO  TO  9 

CALCULATE  STRFSSF S 

12  CALL  STRESS 
9  STOP 
END 


MN4  1030 
MN4  1040 
MN4  1050 
MN4  1060 
MN4  1070 
,  MN4  1080 
MN4  1090 
(  , HN4  1100 
MN4  1110 
MN4  1120 
HN4  1130 
HN4  1140 
MN4  1150 
MN4  1160 
MN4  1170 
MN4  1180 
r , MN4  1190 
MN4  120G 
MN4  1210 
MN4  1220 
MN4  1230 
MN4  1240 
MN4  1250 
MN4  1260 
MN4  1270 
MN4  1280 
MN4  1290 
MN4  1300 
HN4  1310 
MN4  1320 
MN4  i330 
MN4  1340 
MN4  1350 
MN4  1360 
MN4  1370 
HN4  1380 
MN4  1390 
MN4  1400 
HN4  1410 
HN4  1420 
HN4  1430 
MN4  1440 
HN4  1450 
MN4  1460 
MN4  1470 
HN4  1480 
MN4  1490 
MN4  1500 
MN4  1510 
MN4  1520 
MN4  1530 
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—  ** 


SUBROUTINE  TITLE 

TI4 

10 

c 

♦ 

****************************** 

*  *  * 

TIA 

20 

c 

♦ 

* 

TIA 

30 

c 

* 

SUBROUTINE  TITLE  PRINTS  THE  HEA01NG  ON  EACH  PAGE 

* 

TIA 

AO 

c 

* 

* 

TIA 

50 

c 

* 

THIS  SUBROUTINE  IS  CALLED  BY  - 

* 

HA 

60 

c 

* 

STRESS 

♦ 

TIA 

70 

c 

* 

* 

TIA 

80 

c 

* 

****************************** 

*  *  * 

TIA 

90 

c 

TIA 

'100 

IMPLICIT  RE AL*8  (A-H,0-Z) 

TIA 

110 

COMMON  /  HEAD  /  HfcDI 10) ,  I CRD, LIST  ,  IPAGE, LI  NE 

TIA 

120 

100 

FORMAT  ( 1H1 » • FEM  72-OOF  GENERAL  HEXAHEDRONS  THERMO-ELASTIC, 

VARYINTI4 

130 

1G  MATERIAL  PROPERTIES,  DANA*,  9X,  ‘PAGE*,  13) 

TIA 

140 

101 

FORMAT  ( 1H0 , 1 0A8  ) 

TIA 

150 

WRITE  (LIST, 100)  IPAGE 

TIA 

160 

.WRITE  (LIST, 101)  HED 

TIA 

170 

*IPAGE=  IPAGE  <1 

TIA 

180 

LINE  =  0 

TIA 

190 

RETURN 

TIA 

200 

END 

TIA 

210 
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SUBROUTINE  STRESS 


C  **********************,*********,»  ST4 
C  *  *  ST4 

C  *  SUBROUTINE  STRESS  CALCULATES  AND  PRINTS  THE  SIX  STRESS  *  ST4 

C  *  CuMROftENT  S  AT  EACH  NODE  FOR  EACH  ELEMENT  *  ST4 

C  ♦  *  ST4 

L  *  THIS  SUBROUTINE  IS  CALLED  BY  -  *  ST4 

C  *  MAIN  ♦  ST4 

C  ♦  *  ST4 

C  *  THIS  SUBROUTINE  CALLS  -  *  ST4 

C  *  TITLE  *  ST4 

C  *  ELASTR  *  ST4 

C  *  *  ST4 

C  **********************************  ST4 

C  ST4 

IMPLICIT  RE AL*S  (A-H.O-Z)  ST 4 

.1NTEG£R*2  IX,  MTLHO  $T4 

COMMON  /  &ENLS  /  NLL,  NGLOF,  NGNP,  NMTL,  INEL,  1LNP,  1GNP,  IMTL  ST4 

COMMON  /MATL  /  t ( 9 , V, 1 0 ) , 0 ( 6,6 ) ,  FIB0RTI9),  ALFA  I ( 9 1 ,  ST4 

1  ALFA2 (9 )  ,  ALFA3 (9) , AMBTMP  ,ETM(9),  TMPELI9,10J,  NTMP(9)  ST4 

COMMON  /  NODAL  /  X(1C15),  Y(1015),  ZI1015),  UX(1015),UY(1C15),  ST4 

1  UZI1015),  TMPN011015),  U(3046),  ALFTHPI6 I ,  XTU015),  YT11015),  ST4 

2  ISTRS,  I X I  144,27 )  ,  MTLND<1015)  ST4 

COMMON  /  HFAO  /  HED( 1 0) , 1 CRO, LI  ST , IPAGE , LI NE  ‘  ST4 

DIMENSION  XYZ ( 24,3 ) ,  C(3,24I,  0J(3,3),  0JI(3,3),  BA(6,72),  ST4 . 

1  BOB (72*721 ,  SIGt  6  ) ,  UEL(72I,  SIGSAVI 6, 24 ) ,  T(3,3),  ST4 

2  SIGRTH (3 ,3 ) ,  SIGXY(3,3)  ST4 

2000  FORMAT  I 1H0,VX, 6HEL.N0. , 6X .4HNUUE , 9X, 8HX-STRE SS , 6X, BHY-STRESS,  ST4 

16X,  BHZ-STRrSS,6X,  SHXY-STRESS  »5X ,9HXZ-S7RESS»5X ,9HYZ— STRESS/  ST4 

2  37X,  »KSI>,  1CX,  * KS1 *,  12X,  *KSI»,  UX,  »KSI',  11X,  *KSI',  ST4 

3  I1X,  'KSI *  )  ST4 

2001  FORMAI  (  1 5X  » I  11, 4X, 60 14.5)  ST4 

2002  FORMAT  ( 1H0  ,9X , 1 5 , 1 11 , 4X ,6014. 5 )  ST4 

2003  FORMATI *0  EL. NO.  NODE  R-STRESS  THETA-STRESST4 

IS  Z -STRESS  RTHETA-STRESS  RZ-STRESS  THETAZ-STRESS'  /  ST4 

2  37 X,  *KSI ' ,  10X,  *KS1 * »  12X,  'KSI',  UX ,  »KSI'»  UX,  'KSI',  ST4 

3  I1X,  'KSI*  )  ST4 

2C04  FORMAT  ( 15X,I11,4X,6014.6)  ST4 

2005  FORMAT  ( 1H0,9X, 15, III, 4X, 6014.5)  ST4 


ST4 

ST4 

R-STRESS  THETA-STRESST4 
THETAZ-STRESS'  /  ST4 


SOLVE  FOR  STRESSES  SIGI6)  AT  EACH  NODAL  POINTS  OF  EACH  ELEMENT 


CALL  TITLE 

IFIISTRS  .EO.  0  .OR.  ISTRS  .EC.  4) 
WR  ITE( LI  ST ,2003 ) 

GO  TO  32 

31  WR1TF  (LIST, 2070) 

32  CONTINUE 

00  300  1NEL=1*NEL 


GO  TO  31 
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C  PLACE  PROPER  NODAL  DISPLACEMENTS  IN  U  FROM  A 
C 

01)  121  1=1, 24 

I'El  (3*1-2)  =  U(  3*IX(  INEL*  1  )-2  1 
UEL  (3*1-1)  =  0 , 3  »1X( INEL, 1 )— )  I 
121  UEL  (3*1  )  =  U(3*IX( I NEL , 1 )  ) 

FORM  NUOAL  PT.  COGROS.  MATRIX  XYZ  FOR  J(3X3)  =  C( 3X24 ) *XYZ ( 24X3) 

00  140  1=1,24 
L  =  1 X ( INELtl ) 

XYZ ( 1 , 1 )  =  X ( L ) 

XYZ ( 1 , 2 )  =  Y(L) 

140  XYZ( 1,3)  =  Z(L) 

C  CALCULAJE  BA  =  0*B,  24  SETS  OF  (6X72)  FOR  EACH  NODE  OF  THE  ELEMENT 
C 

‘00  200  1  LNP  =  1 , 24 
OU  150  1=1,6 
150  S I G ( I )  =  0.00 

GO  TO  (1,  2,  3,  4,  5,  6,  7,  8,  9,  10,  11,  12, 

1  13,14,16,16,17,18,19,20,  21,  22,  23,  24),  1LNP 

1  XS11=  -1.00 
ETAA=  -1.00 
ZTAA=  -1.00 
GO  TO  25 

2  XS11=  -1.00/3.00 
GO  TO  25 

3  XSI1=  1 .00/3.00 
GO  TO  25 

4  XSII=  l.OC 
GO  TO  25 

5  ZTaA=  1.00 
XS11=  -1.00 
GO  TO  25 

6  XS11=  -1 .00/3.00 
GO  TO  25 

7  XS11=  1.00/3.00 

GO  TO  25 

8  XS11=  1.00 

GO  TO  26 

9  ZTAA=  -1.00 
XS1I=  -l.OC 

ET  AA=  -1 .00/3.00 
GO  TO  25 

10  ET AA=  1.00/3.00 
GO  TO  25 

11  XS1I=  1.00 
ETAA=  -1.00/3.00 
GO  TO  25 

12  f TAA=  1.00/3.00 


ST4 

520 

ST4 

530 

ST4 

540 

ST4 

550 

ST4 

560 

Sf4 

570 

ST4 

580 

ST4 

590 

ST4 

600 

ST4 

610 

ST4 

620 

ST4 

630 

ST4 

640 

ST4 

650 

ST  4 

660 

ST4 

670 

ST4 

680 

ST4 

690 

ST4 

700 

ST4 

710 

ST4 

720 

ST4 

730 

ST4 

740 

ST4 

750 

ST4 

760 

ST4 

770 

ST4 

780 

ST4 

790 

ST4 

800 

ST4 

810 

ST4 

820 

ST4 

830 

ST4 

840 

ST4 

850 

ST4 

860 

ST4 

870 

ST4 

880 

ST4 

890 

ST4 

900 

ST4 

910 

ST4 

920 

ST4 

930 

ST4 

940 

ST4 

950 

ST4 

960 

ST4 

970 

ST4 

980 

ST4 

990 

ST4 

1000 

ST4 

1010 

ST4 

1020 

A-50 


KJ  O  O 


4J 


c 


V 


b 


V 

\ 

t 


GO  TO 

25 

ST  4 

1030 

13  ztaa= 

l.DC 

ST4 

1040 

XS1J  = 

-1  .00 

ST4 

1050 

t  T AA  - 

-1.00/3.00 

ST4 

1060 

GO  TU 

25 

ST4 

1070 

14  £  ?AA  = 

1.00/3.00 

ST4 

1060 

GO  TO 

25 

ST4 

1090 

15  XS1I= 

1.0C 

ST4 

1100 

FTAA  = 

-1  .00/3.00 

ST4 

1110 

GO  TO 

25 

ST4 

1120 

16  E1AA  = 

1 .00/3.00 

ST4 

1130 

GO  TO 

25 

ST4 

1140 

17  £TAA  = 

1.00 

ST4 

1150 

ZTAA  = 

-1  .DC 

ST4 

1160 

XSI1  = 

-1  .00 

ST4 

1170 

GO  TO 

25 

ST4 

1180 

18  X$1I= 

-1.00/3.00 

ST4 

1190 

GO  TO 

25 

ST  4 

1200 

19  -1511  = 

1 .00/3 .00 

ST4 

1210 

GO  TO 

25 

ST4 

1220 

20  X5.1I  = 

1  .00 

ST4 

1230 

GO  TO 

25 

ST4 

1240 

21  ZTAA  = 

1  .00 

ST4 

1250 

XSll=- 

1.00 

ST4 

1260 

GO  TO 

25 

ST4 

1270 

22  XS1I  = 

-1.00/3.00 

ST4 

1280 

GO  TO 

25 

ST4 

1290 

23  XS11  = 

1 .00/3.00 

ST4 

1300 

GO  TO 

25 

ST4 

1310 

24  X5II  = 

1.00 

ST4 

1320 

25  CONTINOf. 

3*4 

1330 

ST4 

1340 

FOR  H  C  MATRIX 

ST4 

1350 

ST4 

1360 

0(1,1) 

=  (1.G0-E  TAA1M 1 .00-ZTAA)*( 10.00*18.00*XSI 1-27  .D0*XSI I **2  - 

ST4 

1370 

1 

9.b0*ETAA»*2  ) 

ST4 

1380 

C( 1,2) 

=(1 .00-tTAAlM l.00-ZTAAI*(81.00*XSll ♦*2-18.00*XSII 

-27. DO) 

ST4 

1390 

0(1,3) 

=  ( 1  •  C  J— t  TA  A ) *( 1 .OC-ZTAA )*( 27. 00-18. G0*XS 11-81. DO*XSII**2) 

ST4 

1400 

0(1,4) 

=  ( 1 •  L“0-t  T A A ) * ( l.Oe-ZTAA)*(27.DO*XSII**2*9.00»ETAA**2* 

ST4 

J  4 10 

1 

1('.00*XS1I-10.0C) 

ST4 

1420 

0(1,5) 

=(1.00-LTAA)»( l.D0+ZTAA)*< 10. 00*1 e.00*XSI 1-27. D0*XSII**2- 

ST4 

1430 

1 

9.00*ETAA**2) 

ST4 

1440 

0(1,6) 

=11.(XI-ETAA)»( 1.00+ZTAA I»(01.OO*XS11 **2-l8.0C*X$lI 

-27. DO) 

ST4 

1450 

0(1,7) 

=  ( 1 .00— t  TA  A ) * ( 1 .00*ZT  AA )*(27.00-18.D0*XSlI-81 . 00*XS1 1**2 ) 

ST  4 

1460 

0(1,8) 

- (1 ,00-£TAA)*( 1 .00+ZTAA  )*<27.D0»XSII**2*9.D0*EUA**2* 

ST4 

1470 

1 

18.00*XS1I-LO.OO) 

ST4 

1480 

r ( 1,9) 

=  (1.00— 3.00* FTAA)*(  1.00-ZTAA)*(9.00*ETAA**2-9.D0) 

ST4 

1490 

t( 1,10 )=( 1.00*3. 00*FTAA)*< 1.D0-ZTAA1*(9.00*ETAA»*2-9.07: 

ST4 

1500 

0(1,11 

)  =  -C(  1,91 

ST4 

3510 

0 ( 1 , 12  1=  -0  (  1,  10) 

ST4 

1520 

C(1 ,13)= (1.00-3. 00*1  T A A) «( 1.00 *ZT AA) *( 9.00* ETAA* *2-9. 00) 

ST4 

1530 
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dll 

14) 

C  1 1, 

15) 

Cl  1, 

16) 

C(l, 

17) 

1 

C  1 1 « 

18) 

C  1 1 , 

19) 

Cl  1, 

20) 

1 

C(l, 

21) 

1 

Cl  1. 

22' 

Cl  1, 

23) 

cu, 

24) 

1 

C  1 2  > 

1) 

1 

t<2. 

2) 

Cl  2, 

3) 

C(2, 

4) 

1 

C12, 

5) 

1 

C  1  2» 

6) 

C  ( ?» 

7) 

C  1  2, 

8) 

1 

C12, 

91  = 

Cl?, 

1C) 

C  1  2 , 

111 

C  1 2 , 

121 

C12, 

131 

C  1 2, 

14) 

C  I  2, 

15) 

C  1 2, 

16) 

C 1 2 , 

17) 

1 

C12, 

18) 

Cl?, 

19) 

C12, 

20) 

1 

Cl,  . 

21) 

1 

C  12, 

22) 

C  1  2, 

23) 

Cl?, 

24) 

1 

C  1 3 , 

1) 

Cl  3, 

2) 

C  ( 3, 

3 1 

Cl  3, 

4) 

=  11 .OO+ETAA)*! 1 .DO-ZTAA 1*1 27.00*XSI I **2+9. D0*ETAA**2* 
18.00*X$I1-10.D0) 


14  1=11. 00+3. 00*ETAA)*( l.DO+ZTAA) *  19 .DO*ET  AA**2-9 .00)  ST4 

15  >  =  — C (  It  13  )  ST4 

16) =-C(1,14)  ST4 

17)  =  U.C0*ETAA)*(  1 .D0-2TAA 1*110. D0*18.D0*XSI 1-27 ,DO*XSII **2-  ST4 

9«U0*ETAA**2)  ST4 

181  =  11. OO  +  ETAA  )*<1.00-7.TAA  1  +  181. 00*XSll-,*2-16.D0*XSi:- 27. DO)  ST4 
19)=(1.00+fcTAA)*ll.OO-ZTAA)*127.DO-18.DO*XSII-8l.DO*XSlI**2)  ST4 
20 1=11. OO+ETAA)*!  1  .DO-ZTAA  1*1  27.00*XSII**2+9.00*ETAA*<!2*  ST4 

18.00*X$I1-10.D0)  ST4 

21 )  =  U.UO*ETAA)*(l.UC*ZTAA)*l 10. 00+18. DO*XS 1 1-27 . DO*XSI 1**2-  ST4 
9.00*ETAA**,2 1  ST4 

22'=(1. OO+ETAA)*! 1.00+ZTAA)*(81.DO*XS1I**2-18.DO*XSII-27.DO)  ST4 
23  1= (1. OO+ETAA 1 *1 1 .D0+ZTAA)*<27.00-18.D0*XS 11-81 .D0*XSII**2)  ST4 
241=1 l.UO+ETAA 1*1 1 .OO+ZTAA 1 *1 27.00*XS I I **2+9 .DO* ET AA**2+  ST4 

18.00*XSI 1-10.00)  ST4 

1)  =  1  l.L’O-XSII  )*( 1 .00-Z1AA)*! 10.00+10.00* ET A A-9.D0*XSI1**2-  ST4 

27 .DO*E  TAA**2 )  ST4 

2)  =  U.D0-3.D0*XSI  11*1  l.U0-ZTAA)*19.D0*XSn**2-9.D0>  ST4 

31  =11 .U0+3.DG*XSI 11*1 1.00-ZTAA)*!9.DO*XS1I*>>2-9.DO)  ST4 

41  =  (1  .D0+XSI1  1*(  1. DO-ZTAA  1 *1 10.00+ 1 8 .D0*ETAA-9. DO*XSI 1**2-  ST4 

27.00*ETAA**2 1  ST4 

51  =  1 l.OD-XSI 11*1 1.D0  +  ZTAA1*( 1 0.00+18. 00*ET  A A-9. 00*X SI  1**2-  ST4 
27 .DO*E  TA A**2 1  ST4 

61  =(1. 00-3. 00*XS1 11*1 l.U0+ZTAAl*(9.D0*XSII**2-9. 001  ST4 

71  =  11.L>0  +  ».00*XS1  11*1 1.0C  +  ZlAA)*19.00*XSn**2-9.DC)  ST4 

81  =  11 .DO  +  Xi,I I )*< 1 .UO+ZT  AA 1 *1 1 0.00+18.00*ETAA-9. D0*XSI 1**2-  ST4 
27 .00*ETAA**2 1  5T4 

9 1 =( 1.00-XSlI )*<1.00-ZTAA)*(81.00*ETAA**2-18.DC*ETAA-27.D0)  ST4 
1C)=U.DJ-XSI1  )*( l .DO-ZTAA 1*1 27. 00-18. C0*ETAA-81 .D0»ETAA**2)  ST4 
ll)=(1.00+XSII  )«(  1  .0G-ZTAA)M81.00*ETAA**2— 18.fJ0*ETAA-27.D0>  ST4 
12  )=( 1.00+X51I )♦( 1 .UO-ZTAA 1*1  27. 00-18. DC*E TAA-R1 .D0*ETAA**2)  ST4 
131-1 1.00-XSI 11*11 .DO+ZT AA  )*( 8 l .00*  ET AA**  2-18 .00*E 1 AA— 27 .DO!  ST4 
14 J  =  (l .OO-XSII 1*1 1 .UO+zTAA)*! 27.00—1 8 .00*E  T  A A— 8’ .D0*EUA*»2)  ST4 
151= (1.00+XSll 1*1 1 .OO+ZTAA l*(81.DC*ET/A**2-18.00*ETAA-2. .00?  ST4 
161=11 .DO+XSI 11*11 .OO+ZTAA) *127. 00-18. D0*ETAA-R1 .00*ETAA**21  ST4 
171=11 ,00-XSI 11*11 .0U~ZTAA)*(27.00*ETAA**2+9.D0*X5II+*2+  ST4 

18.D0*ETAA-10.00)  ST4 

16 1=-C (2*21  ST4 

19)  =  — C  <2,31  ST4 

201=1 l.DO+XSl 11*1 1.00-ZTAA )♦{ 27.00*ETA A**2+9 .D0*XSII **=♦ 18 .D0*ST4 
ETAA-lO.OOl  ST4 

211=11 .OO-Xil 11*11 .OC  +  ZTAA )*t  27. DO*ETAA **2*9. D0*XS 11**2  +  5T4 

ie.00*ETAA-10.t0)  S 14 


9.00*ETAA**,2) 


18.00*XSII-10.00) 

=1 l.L’O-XSII J*( 1 .00-Z1AA)*! 10.00+10.00* El A A-9.D0*XSI 1**2- 
27  .00*E  TAA**2 1 


27.00*ETAA**2 1 

=1 1.U3-XSI 11*1 l.DO+ZTAA 1*110. 00+18. U0*ETAA-9.D0*XSI 1**2- 
27 .00*E  TA A**2 1 


=  11  .DO+XSI 11*11 .00*ZTAA)*(10. 00*18. 00*ETAA-9. D0*XSI1»*2- 
27 .00*ETAA**2 1 


18.D0*ETAA-10.001 


18.0C*E?AA-10.W)  ST4 

11  = 1 l.tO-XSl 11*11 .OO-ETAA)*! 10.00— 9.00*XS1 1 **?-9.00*ETA  A**2 1  ST4 


=11. DO+XSI 11*1 l.DO-CTAA 


■  ’♦(<•. D0*XSJJ**2-9.OC) 
t4'vOO*XSI  1**2-9.001 
0-9. 00 *X SI  I**?-9.00*ETAA**2) 
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I 


I 


00  26  N= 1,4  ST4 

26  CI3.N44)  =  -C  ( 3 ,N  I  ST4 

C(J,9)  =(l.D0-3.O0*ETAA)»( 1 .00-XS1 1)M9.D0*ETAAA*2-9.D0)  ST4 

C(3,10)=(1.D'343.0C*BTAA)*( l.D0-XSII)*<9.D0*£TAA**2-9.G0)  ST4 

C ( _ . 11  *  ll.00-3-00*E:TAA)*( 1 .DO+XSl  1)*(9.D0*ETAA**2-9.D0)  S74 

C(3,12)=(1.00+3.00*ETAA)*( 1 .OO+xSl 1 )* ! 9.D0*wT AA**2 -9 .DC)  ST4 

00  27  N=o,12  ST4 

27  C(3,N+4I  =  -C(3,N)  S74 

C(3,17)=(1.D0-XSII >*( l.OO+ETAAMI 10.00-9.00 *XS 1 1 ♦*2-9.D0*ET A A**2 )  S74 
C(3,18)  =  (1.DO-3.DO*XS1  I)*( l.OO+ETAA ) * ( 9.00*XS1 I»*2-9 .DO)  ST4 

C (3, 19)= ( 1.00+3. 00*XSI 1) *( 1.00+E7AA)*J9.D0*XSI1**2-9.D0)  S74 

C(3,20)=(l .UO+XSI I  )*(  1 .DO+FTAA )•( 1 0.00-9 .00*XS 1 1 *»2-9 . DO* ETA A**2 )  ST4 
DO  2 fa  N= 17  , 20  S74 

28  C(3,M-»4)  =  -C  1 3  ,N  )  S74 

DO  30  11=1,3  S74 

00  30  KK=1 ,3  S74 

OJIII.KK)  =  0.00  S74 

00  30  JJ=1,24  S74 

30  DJIII.KK)  =  OJIII.KK)  4  CIll.JJ)  *  XYZIJJ.KK)  /  64.00  S74 

f.  S74 

.  FORM  INVERSE  J  MATRIX  OJII3X3)  ST4 

C  S74 

0E7J  =  DJ(1,1)*(DJ<2,2)*DJ<3,3)  -  OJ ( 2 ,3  )*DJ ( 3, 2 )  )  S74 

1  +0J(1,?)*(0JI2,;)*0J(3,1)  -  0J(2,1)*0J(3,3>  )  S74 

2  +DJI  1 , 3 ) *  I OJ ( 3 » 2 ) *0J I  2, 1 )  —  DJ I  0 , 2 )*DJ I  3 , 1 )  )  S74 

0J1 (1,1)  =  (OJ ( 2, 2  ) *0J (3,3)  -  0J(  2 , 3 ) *0J(  3,2))  /OETJ  ST4 

0 J1 1 1,2)  =  IOJ I  3, 2  ) *0J 11,3)  -  DJI  3 ,3 )*0J (1,2) )  /DETJ  S74 

0 J 1 1  1 ,3  I  =  (0 J I 1,2)»0J(2  ,3)  -  OJI 1,3 '  *0J (2,2))  /DETJ  ST4 

0 J1 1 2 , 1 )  =  (DJ I  2, 3) *0J (3 , 1 )  -  DJI  2 , 1 ) *0J ( 3,3* /  /OETJ  S74 

OJ 1 1  2 , 2 )  =  (OJI 3, 3) *0J (1,1)  -  OJI 3 , 1 ) *DJ (1,3) )  /DETJ  ST4 

0J1I 2,3)  =  (Oil  1 , 3 )*DJ (2,1)  -  OJI 1,1) *0J<  2,3))  /DETJ  ST* 

OJI 1 3, 1 1  =  (0 J ( 2 ,  1  )*0J (3 ,2 )  -  OJI 2 ,2 ) *0J (3,1) )  /DETJ  ST4 

DO  40  1=1,6  FT4 

t  ST4 

u  FORM  HAIRIX  BI6X72),  WHERE  IB)  =  (BA)  ST4 

C  ST4 

OJI I  3,3)  =  (DJI  1,1  )  *0J (2,2)  -  OJI 1 ,2 ) »DJ I  2,1))  /OF  T  J  ST4 

DJI ( 3,2 )  =  (0JI3, 1  )»0J( 1,2)  -  OJI3,2)*DJ( 1,1) )  /DETJ  ST4 

00  40  L= 1 , 72  ST4 

40  B A  1 1 ,L 1  =  0.00  ST4 

00  50  N=1 , 70, 3  ST4 

l  *  l»-  11/3  4  1  ST4 

BAll.N)  =  ( DJ 1 1  1 , 1  )*C 1 1 , L ) +0J I ( 1 , 2 )*C ( 2 , L ) +0J 1 1 1 ,3 ) *C ( 3,L ) J /64 .00  ST4 
Ba:4,H)  =  <OJII2,l)*C(l,L)4OJII2,2)*C(2,L)4DJI(2,3)*C(3,L))/64.D0  ST4 

50  BAI5.N)  =  (OJI  (  3, 1 ) *C ( 1,L) +DJI (3»2)*C(2,l)4DJI(3»3)*C(3,L) )/64 .00  ST4 
DO  6  0  N=  2 , 7 ) , 3  ST4 

L  =  IN  -  21/3  4  1  ST4 

B  A 1 2  ,N  )  =  ( DJI  I  2, 1 )*C ( 1 ,L  J+DJI I2,2)*C(2»L)+0JI(2,3)*C(3,L))/64.D0  ST4 
B  A 1 4  ,  N )  =  (OJ 1(1,1) *C (1,1)  +0J  I(1,2)*C12,L)40JU1,3)*C(3,L)  )/64.00  ST4 

60  BA  I  6 ,N )  =  (OJI I  3,1  )*C(  !,L)+DJ1 1 3 ,2 . *C 1 2 , L ) +  DJ I ( 3 , 3 5 *C I  3, L ) )/64 .00  S  74 
00  70  N=  3 , 72, ?  ST4 


2050 
2060 
2070 
2080 
2090 
2100 
21 1 C 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
252  0 
2530 
2540 
2550 


A-53 


o  o  kJ  i.; 


L  =  (N  -  3 )/3  ♦  1  ST 4 

B  A  ( 3  ,N )  =  (0JK3.1  )»C(1,LI*DJI(3.2)*C(2„.)>DJI(3,3)*C(3,L))/64.D0  ST4 
BA(5,N)  =  (0JI(1,1)*C<  l,L)*Djm.2)*C(2,L)*DJI<l,3)*C(3,L)  1/64.00  ST4 
70  8A(  6  »N )  =  (DJI(2,1)*C<  1 , L ) +DJI(2 , 2 ) *C < 2 , L }*DJ I < 2 ,3 )*C ( 3,L ) )/64 .00  ST4 


ST4 

FIND  ELASTIC  MATRIX  AND  FORM  TR»Fi.fc  MATRIX  PRJDUCT  ST4 

ST4 

IF(ILNP  .ED.  1  .OR. IX ( 1NLL  »27 )  .EO.  2  .OR.  IX!INLL,27»  ,E0.  4)  ST4 

i  call  elastr  ST4 

00  BO  N=l,6  ST4 

00  80  L=l,72  ST4 

BDB ( N* L)  =  0.00  ST4 

00  80  NN=1,6  '  ST 4 

80  BUB ( N»  L)  -  BDB(N,L)  +  L'(  N,NN )  *6A(NN,L  )  ST4 

00  90  1=1,6  ST4 

00  90  J=l,72  ST4 

90  S1G(IJ=S1GII)  ♦  BOB <1 , J ) *UEL ( J )  ST4 

ST4 

INCLUDE  THERMAL  AFFECTS  ST4 

ST4 

TOP  =  TMPNOIIXI INEL.ILNP)  ]  -  AMBTMP  ST4 

00  92  1=1,6  ST4 

00  92  J= I , 6  .  ST4 

92  SIGII)  =  SlG(l)  -  0(1,  J)*ALFTMP(J)  ♦  TMP  ST4 

1 F  ( 1  SIRS  .EO.  1  .OR.  ISTRS  .EO.  3)  GO  TO  96  ST4 

C  PRINT  STRESSES  IN  RECTANGULAR  COORDINATES  ST4 

IF  ( LINE .LT .48  t  GO  TO  94  ST4 

CALL  TITLE  ST4 

HRITE  (LIST, 2000)  ST4 

94  CONTINUE  ST4 

I F  (  ILNP  .EO.  1  )  GO  TfJ  95  ST4 

WRITE  (LIST, 2001)  IX( INE L, ILNP ) ,  ( SIG ( I » , 2= l, 6)  ST4 

If (ISTRS  .EO.  0)  GO  TO  100  ST4 

IF  ( ISTRS  .EO.  4)  GO  TO  96  ST4 

95  WkITF(LIST,2002)INEL,IX(lNEL, ILNP), (SIGCI), 1=1, M  ST4 

1F(1STRS  .EO.  0)  GO  TO  100  ST4 

(.  ST4 

C  TRANSFORM  STRESSES  TO  CYLINDRICAL  COUROINATES  ST4 

i.  ST4 

96  S1GXYI 1,1)  =  SIG( 1)  ST4 

S 1GXY( 1,2)  =  SIG( 4  J/2.00  ST4 

S 1GXY(  1,3)  =  S 1 G ( 51/2.00  ST4 

SIGXYI2, 1 )  =  SIG( 4 )/2 . 00  ST4 

S IGXYI 2,2)  =  SIG(2)  ST4 

S 1GXY ( 2,3)  =  SlG(6)/2.00  ST4 

S  I GXY(  3,1)  '=  SIG!  5  )/2 .00  ST4 

S1GXYI3.2)  =  SIG( 6 )/2. 00  ST4 

S 1GXY( 3, 3)  =  $16(3)  ST4 

THEDA  =  3.1415926535897900  «  Y T( IX ( INEL , ILNP ) )  /  180.00  ST4 

54C  T  (  1 , 1 )  =  UCOS(ThEOA)  ST4 

t ( i ,  2 )  =  os  in ( theda )  ■  ST4 


2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2040 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 


A-S4 


noo 


T ( 1 1 J  J  =  0.00 

ST4 

3070 

T  (2,11  =  -TU,2) 

ST4 

3080 

7 (2,21  =  T( I » 1 ) 

ST4 

3090 

1(2,3)  =  0.00 

ST4 

3100 

T ( 3 • 1 )  =  0.00 

ST4 

3110 

T ( 3, 2 >  -  o.no 

ST4 

3120 

DO  537  11=1,3 

ST4 

3130 

1(3,3)  =  1.00 

ST4 

3140 

DO  537  JJ=1,3 

ST4 

3150 

W7 

SIGRTHl i 1 , JJ)  =  0.0C 

ST4 

3160 

DO  538  11=1,3 

ST4 

3170 

00  538  JJ=I ,3 

ST4 

3180 

DO  538  KK= 1,3 

ST4 

3190 

DO  538  LL=1 ,3 

ST4 

3200 

IF!  DAOS! T ( 1 I ,KK ) )  .LT.  1.0-16  )  T(1I,KK)  =0.D0 

ST4 

3210 

538 

SIGRTHl I I, JJ)  =  SIGR1HIII, JJ)  ♦  T(I1«KK)*T(JJ,LL)*SIGXY(KK,LL) 

ST4 

3220 

S  I G ( 1)  =  SIGRTHl 1 , 1 ) 

ST4 

3230 

•S I G  ( 2 )  =  S1GRTH(2,2) 

ST4 

3240 

SIGI3)  =  SI GRIM (3, 3) 

ST4 

3250 

S I G ( A )  =  SIGRTHl 1 ,2)*2. 00 

ST4 

3260 

SIU6J  i  SIGRTHI1, 31*2.00 

ST4 

3270 

S  lG(  6  /  =  SIGRTH(2,3M2.UC 

ST4 

3280 

ST4 

3290 

PRINT  STRESSES  IN  CYLINDRICAL  COORDINATES 

ST4 

3300 

ST4 

3310 

IFI1STRS  .NE.  9)  GO  TO  539 

ST4 

3320 

00  98  1SIG=1,6 

ST4 

3330 

98 

SIGSAVIISIG.ILNP)  =  SIGIISIGI 

ST4 

3340 

1M1LNP  .LT.  24)  GO  TO  100 

ST4 

3350 

WRITE ( LI  ST ,2003 ) 

ST4 

3360 

W'UTE(LIST,2005)  INEL,  IXIINFL.l),  1 SIGSAVII , 1 )  ,1  =  1 ,6) 

ST4 

3370 

WRITE! LIST, 2304)  I IX 1 INEL, J > , (SIGSAVI I , J) , 1  =  1, 6) , J=2,24l 

ST4 

3380 

L1N(  =  LINE  ♦  24 

ST4 

3390 

539 

IF  (LINE. LT. 48)  GO  TO  97 

ST4 

3400 

CALL  TITLE 

ST4 

3410 

WRITE  (LIST, 2003) 

ST4 

3420 

97 

CONTINUE 

ST4 

3430 

1 F (  IlNP  .10.  1  )  GO  TO  99 

ST4 

3440 

WRITE  (LIST, 2004)  IX(  INEL,  ILNP  )  ,  (SIGH), 1  =  1, b) 

ST4 

3450 

GO  TO  100 

ST4 

3460 

99 

WRITE! LI  ST, 2005) INEL, IXl INEL, I  LHP ) , ( S 1G< 1 ) , 1  =  1 , 6 J 

ST4 

3470 

100 

CONI 1NUE 

ST4 

3480 

LI"F  =L I NE  *  1 

ST4 

3490 

200 

CONTINUE 

ST4 

3500 

300 

CONTINUE 

ST4 

3510 

RETURN 

ST4 

3520 

END 

ST4 

3530 

A-SS 


c 

C 


SUBROUTINE  ELASTR 


*  *  **************  *********  **  ****** 

♦ 

C  *  SUBROUTINE  ElASTR,  IN  CONJUNCTION  WITH  DMATST ,  CALCULATES  THE 

C  *  ELASTIC  MATRIX  FuR  EACH  ELEMENT 

C  * 

C  *  THIS  SUBROUTINE  IS  CALLED  BY  - 
L  »  STRESS 

C  ♦ 

C  *  THIS  SUBROUTINE  CALLS  - 
C  *  DMATST 

C  * 

C  ********************************* 

c 

IMPLICIT  RE AL*8  IA-H,0-Z) 

.1  NTFGFK* 2  IX,  MILNU 

COMMON  /  GENLS  /  NEL,  NGLOF,  NCNP,  NMTL,  INEL,  1LNP,  IGNP,  IHTL 
COMMON  /MAIL  /  E  <9,9, 10 ) ,0(6,6) •  FIB0RTI9),  ALFA1 ( 9) , 

1  ALFA2 (9  )  ,  ALFA3<9) ,AMFTMP  ,ETM(9),  TMPEL(9,10),  NTMP<9) 
COMMON  /NODAL  /  X(1M5),  YI1015I,  Z<1015>,  UX  <  1 01  5  )  ,UY  ( 1 0 15  )  , 

1  UZ11015),  TMPND  ( 1C  1  5 )  ,  U<3095),  ALFTMP  (6  }  ,  XTU015),  YTI1015) 

2  ISTRS,  I  X ( 199,27 ) ,  MT  LND { 1015) 

I F  (  IX ( INEL ,271  .EU.  1  .OR.  IXIINEL.27I  .EO.  31  GO  TO  31 
1 F (  IX ( 1 NE  L ,27 )  .EU.  2  J  GO  TO  2 
NTMP1  =  NTMP(1X<INEL,25) ) 

I F (  NT MP 1  .EU.  1  )  GO  TO  Jl 

1MTL  =  MTLNUIIXI /NEL.ILNPII 

1FIIMTL  .10.  0  1  IMTL  =  IX<INEL,25) 

I GNT  =  I X( INEL, ILNP) 

I F ( T HPND ( 1 GNT )  .LI.  T MPE L < IMTL , I )  )  GO  TO  5 
1F<  TMPNDIIGNT)  .GE.  TMPEL ( IMT L,NTMP t IMTL J 1  )  GO  TO  6 

NTMPM1  =  NTMP(IMTL)  -  1 
OO  20  II =1 ,NTMPM 1 

1 F {  TMPNDdGNTJ.GT.  TM PE L < IMTL , I I )  .AND.  THPND< IGNT ) .LE . 

1  TMPELIIMTL, 11*11  )  GO  TO  9 

20  C0NT1NUI 

WRIT  E ( 6, 6001 ) 

6001  FORMAT <  *  ERROR  1*  ) 

5  00  30  1=1,9 

30  f  TMU)  =  E  ( 111  TL  ,  1 , 1 ) 

GO  TU  1 

6  00  90  1=1,9 

90  ETM(I)  =  E( IMTL, I ,NTMP (IMTL) J 
GO  TO  1 

9  0IFTP1  =  IMPEL(IMTL.IIU)  -  TMPE  L  ( IMTL  ,  1 1 ) 

01FTP2  =  TMPNDUGNT)  -  TMPELI IMTL, II ) 

RATOIF  =  01FTP2  /  D1FTP1 
00  50  1=1,9 

50  CTM(I)  =  E (  IMTL ,1,11)  ♦  RATOIF  ♦  ( E ( IMTL , I , II *1 )  -  E <  IMTL , I , II ) ) 
GO  TO  1 


EL9 

10 

EL9 

20 

*  EL9 

30 

*  EL9 

SO 

*  EL9 

50 

*  EL9 

60 

*  EL9 

70 

*  EL9 

80 

*  EL9 

90 

*  EL9 

100 

*  EL9 

110 

♦  EL9 

120 

*  EL9 

130 

♦  LL9 

ISO 

EL9 

150 

EL9 

160 

EL9 

170 

EL9 

180 

EL9 

190 

EL9 

200 

EL9 

210 

,  EL9 

220 

EL9 

230 

EL9 

290 

EL9 

250 

EL9 

260 

EL9 

270 

EL9 

280 

EL9 

290 

EL9 

300 

EL9 

310 

EL9 

320 

EL9 

330 

EL9 

390 

EL9 

350 

EL9 

360 

EL9 

370 

EL9 

380 

ELS 

390 

ELS 

900 

ELS 

S10 

ELS 

S20 

ELS 

S30 

ELS 

SSO 

ELS 

S50 

ELS 

960 

ELS 

S70 

ELS 

980 

ELS 

990 

ELS 

500 

ELS 

510 

A-SG 


31  IMTL  =  IX( INEL»25 )  EL4  520 

00  60  1=1,9  EL4  530 

60  ETM(I)  =  t ( IHTL ,  1,1)  EL4  540 

GO  TO  1  EL4  550 

2  IHTL  =  MTLNDI  I X < INEL, I LNR ))  £L4  560 

IF  <  iMTI.  . 60 .  0  I  I“TL  =  I X( 1NEL ,25 )  EL4  570 

00  00  1=1,9  EL4  500 

00  ETH(I)  =  E(  IMTL, 1,1)  EL4  590 

1  CALL  DMATST  EL4  600 

RETURN  EL4  610 

END  .  EL4  620 
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SUBROUTINE  DMATST 

DM4 

10 

DM4 

20 

* 

*  ft**************************** 

* 

* 

DH4 

30 

♦ 

DM4 

40 

♦ 

SUBROUTINE  DMATST  CALCULATES  THE  ELASTIC  MATRIX  AND  PERFORMS 

A 

DM4 

50 

♦ 

RO.aTIONAL  TRANSFORMATION  ON  THE  ELASTIC  MATRIX 

DM4 

bO 

* 

DM4 

70 

* 

THIS  SUBROUTINE  IS  CALLED  BV  - 

DM4 

80 

* 

ELASTR 

DH4 

90 

♦ 

DM4 

100 

* 

****************************** 

* 

* 

.DM4 

110 

DM4 

120 

IMPLICIT  REAL'S  <A-H,0--Z) 

DM4 

130 

I NTt  0ER*2  IX,  MTLND 

DM4 

140 

COMMON  /  GENLS  /  NEL,  NGLUF ,  NGNP,  NHTL,  INEL,  1LNP,  IGNP, 

IMTL 

DM4 

150 

COMMON  /MATL  /  E 1 9 , V, 1 Q ) , 0 1 6 , 6 ) ,  FIB0RTI9),  ALFA  1(9), 

DM4 

lbO 

I  ALFA2I9),  ALFA3I9I .AMBTHP  ,£TM<9),  TMPEL(9,10),  NIMPI9I 

DM4 

170 

•COMMON  /  NODAL  /  X(IOIS),  YI1015),  2(1015),  UX ( 101 5 ) ,UV ( 10 15 ) , 

0M4 

180 

1  UZ ( 10 15 ) ,  TMPNDI 10 1 3 ) ,  U<3045),  ALFTMP (6 ) ,  XTI1015),  YTI1015) 

t 

0M4 

190 

2  1  SIRS ,  1X1144,27),  MTLND ( 1015) 

DM4 

200 

DIMENSION  T(6,6),TD(b,6),  TT<6,6)»  TMPCOF (b ) ,  DTMPlb, 

b) 

DMA 

210 

UO  10  1=1, b 

DM4 

220 

DO  10  J=l,b 

DM4 

230 

T  (  I ,  J )  =  O.UO 

DM4 

240 

0(1,  J)  =  OOP 

DM4 

250 

10 

TO ( I , J )  =  0.00 

0M4 

2b0 

XNU21  =  ETMI4)  ♦  t T M ( 2  )  /  ETM(l) 

DM4 

270 

XNUJ1  =  ETM(5)  *  ETM( 3 )  /  fcTM(l) 

DM4 

280 

XNUJ2  =  ETM(b)  *  L  TM( 3 )  /  ITMI2) 

DM4 

290 

F ACT  =  l .00-t  TM (4) » ( XNU2 1*(.TM{  6 ! *XNU31 J-ETMI5)* (XNU31'XNU32*XNU2 1 ) 

- 

0M4 

300 

1  ETM(b ) 'XNU32 

DM4 

310 

0(1,1)  =  ETM(l)  *  (1.00  -  ETH(b)  *  XNU32)  /  FACT 

DH4 

320 

0(1,2)  =  E  TM ( 2 )  ♦  (ETM14)  ♦  tTH(S)  *  XNU32 )  /  FACT 

DM4 

330 

0(1,3)  =  ETM ( 3 )  *  ( 1 TH( 5 )  ♦  ETM(4)  *  ETM(b)  )  /  FACT 

DM4 

340 

0(2,1)  =  0(1,2) 

DM4 

350 

0(2,2)  =  ETM ( 2 )  »  (1.00  -  ETM ( 5 )  *  XNU31 »  /  FACT 

DM4 

360 

0(2,3)  =  ETM { 3 )  » (ETM(b)  ♦  ETM(5>*  XNU21 )  /  FACT 

DM4 

370 

0(3,1)  =  0(1,3) 

DM4 

380 

0(3,2)  =  0(2,3) 

DM4 

390 

0(3,3)  =  E  TM  ( 3 )  *  (1.00  -  ETM  (  4 )  *  XNU21)  /  FAC', 

OH  4 

400 

0(4,4)  =  ETM ( 7 ) 

0M4 

410 

0(5, S)  =  ETM(R) 

DM4 

420 

0(b,b)  =  ETM (9) 

DM4 

430 

ALFTMP (1)  =  ALFAl(IHTL) 

0M4 

440 

ALFTMP(2)  r  ALFA2 ( 1MTL  ) 

DM4 

450 

ALFTMP ( 3 )  =  ALF A3 { IMT  L ) 

DM4 

460 

00  b()  1  =  4, b 

DM4 

470 

60 

ALFTMPt 1 )  =  ODO 

DM4 

480 

I  F(  DABS ( FI  SORT ( I  MI L ) )  .LT.  .5D-14  )  GO  TO  50 

DM4 

490 

F  1  FOR  =  FI  BUR  I ( IMTL )  ♦  3 . 14 1592b5 35397932 DC  /  180. DO 

DM4 

500 

T (  1 ,  I  )  =  OCOSIFIBOR  !**2 

DM4 

510 
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Til, 2)  =  DS1N (FIBOR  )**2 

0M4 

520 

T  ( ■£. » 1 1  =  OCOS  ( F I90R  )  *  OSIN  (FIBOR  ) 

DM4 

530 

I|1,M  =  -2.0C  *T (4* 1  ) 

DM4 

540 

1(2,1)  =  til, 2) 

DM4 

550 

7(2.?)  *  TIM) 

DM4 

560 

T(2,4)  =  -Til, 4) 

DM4 

570 

T ( 3, 3)  =  1.00 

DM4 

560 

T ( 4, 2 )  =  -7(4,1) 

DM4 

590 

T ( 4 ,4 )  =  T ( I, 1 )  -  7(1,2) 

DM4 

600 

7(5,5)  =  OCOS (FIBOR  ) 

0M4 

610 

7(6,5)  =  OS  IN ( FIBOR  ) 

DM4 

620 

T (5,6)  =  -T(6 ,5 ) 

DM4 

630 

7(6,6)  =  T ( 5, 5 ) 

DM4 

640 

DO  70  1=1,6 

DM4 

650 

TMPCOF ( I )  =  000 

DM4 

660 

DO  7C  J=  1 , 6 

DM4 

670 

70  TMPCOF ( 1 )  =  THPCOF(l)  ♦  T  (  I , J )  *  ALFTHP(J) 

DM4 

600 

'00  9C  1=1,6 

DM4 

690 

9C  ALFTHP(I)  =  TMPCOF ( 1 ) 

DM4 

700 

00  20  1-1,6 

0M4 

710 

00  20  4=1,6 

DM4 

720 

00  20  K= 1,6 

DM4 

73  0 

20  TO ( 1 ,J  )  =  TOII.J)  ♦  T(I,K)*D(K,J) 

DM4 

740 

00  00  1=1,6 

DM4 

750 

00  OC  4=1,6 

DM4 

760 

00  TT (4 , 1 )  =  7(1,4) 

DM4 

770 

00  30  1=1,6 

0M4 

780 

00  30  4=1,6 

DM4 

790 

0TMP(1,J)  =  ODO 

0M4 

800 

00  30  K= 1 ,6 

DM4 

810 

30  07MP ( 1 ,4 )  =  OTMPI 1,4)  +  T0(1,K)  *  7T(K,J) 

DM4 

820 

00  40  1=1,6 

DMA 

830 

00  40  4=1,6 

0M4 

840 

40  0(  1,4)  =  OTMPU.J) 

DM4 

850 

50  CONTINUE 

DM4 

860 

RETURN 

DM4 

870 

ENO 

DM4 

880 

APPENDIX  B 


Input/Output  Units  and  Sample  JCL 


A.  Introduction 

One  disk  unit  is  required  for  job  steps  2,  3  and  4.  This  unit  is 
a  uir'-<_t  access  ^ile  with  a  minimum  logical  record  length  of  21024  bytes. 
This  file  is  used  to  pass  data  from  step  2  to  step  3  and  from  st. ,  3 
to  step  4.  It  is  also  used  in  the  iterative  loop  in  step  3. 

A  sequential  disk  or  tape  unit  can  be  used  to  pass  data  from  a 
mesh  generator  (step  1)  to  step  2.  This  sequential  unit  should  be 
blocked  for  card  images. 

The  sample  JCL  given  in  this  Appendix  is  for  the  IBM  360/370 
operating  system. 
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JCL  to  run  four  job  steps 


JOB  UR J  GIN  FRUM  LOCAL  DEVICE=RD1  .  ,2CC. 

//R1225TS1  JOB  r-0803  , DANA ,MSGLEVEL= 1 

/♦MAIN  REGI0N=(200,292,230,248 ) ,TIME=(  1,2,30,4)  ,L1NES=4 
, /S^SPl  £ XCC  FORTGCG 
//FORT. SYS  IN  00  * 

/♦ 

//GO.FTC1FOO 1  00  DSN=CDA TA T f M ,UN1 T = SYSDA, 

//  SPACE-(TRK»(5,l),RLSh)V 
//  0 1 SP  =  ( NE W, PASS » DE LETl  ) , 

//  0CP=(RECFM=FB,LRECL=00,fLKSIZE=e00) 

//GO.SYSIN  DO  ♦ 

/♦ 

//STEP2  EXEC  FORTGCG 

//FORT.SYSLIN  DO  OSN=GLOADSE T , 01 SP= ( NEW , PASS ) , 

//  UN1T=SYSS0,SPACE=<  80, <200, 150),RLSE) ,DCB=BLK51ZE=8  0 
//FORT . SYS  IN  00  * 

//GO.FTCIFOOl  00  DSN=GOATAT  EM, UNIT  =SYSDA» 

//  01SP=(UL0,0ELETE) 

//GD.FTC3F001  00  D$N=£KEM7REC»UNIT=SYSDA, 

//  DISP=(NEW, PASS, DELETE ), 

//  $PACE=(26000, (15,9),RLSE), 

//  DCB=(RECFM=PT,LRECL=26000, BLKS 1ZE=26000, BUFN0=1 ) 

//GO.SYSIN  00  ♦ 

/* 

//STEPJ  EXEC  FORTGCG 
//FORT . SYS  IN  DO  ♦ 

/♦ 

//GO.FTC3FOC1  00  USN=£KEMT REC , UNI T =SYSDA, 

//  DISP  =  (OLO, PASo, DELETE )  , 

//  SPACE=<26000,(15,9),RLSE), 

//  DCn= (REC FM=FT, LRE CL=26000, BLKS1ZE =26000, BUFN0=1 ) 

//GO.SYSIN  DO  * 

/# 

//STEP*,  EXEC  FORTGCG 

//FORT.SYSLIN  00  OSN=CLUAOS£ T,DI SP= (NEW, PASS  ) , 

//  UN1T=SYSSO,SPACE=(80,(200,150) ,RLSE) ,DCB=BLKSIZE=80 

//FORT . SYS  IN  00  * 

/♦ 

//GO. FT 03FC01  DO  DSN=CKEMTP.EC  »UNIT  =  SYSDA, 

//  SPACE  =  <26000, (15,9) ,RLSE  ), 

//  OISP=(ULD,DELFTE, DELETE), 

//  OCB=( REC FM=FT,LRECL=2 6000, BLK  S1Z £=26000, BUFNU  =  1 ) 

//GO.SYSIN  DO  * 

/♦ 

// 
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JCL  to  run  steps  1  and  2 


JOB  CRIG’N  FROM  LOCAL  UEVICE=RL1  ,20C. 

//I'l  225T 17  J 0 EJ  FOMO 3,  DANA  »M5(-LE  V  t  L  =  1 

/♦MAIN  REG  1('N=  (  , 203 , 29?  )  , T 1  ME  =  (  1 , 1  r  5  ) .  L  1NL  5  =  *t 

//  EXEC  PGM=1  E  F  FR14 

//DD 1  UD  Dl$P=<OLP, DELETE  )  ,  DSN  =  JPND  .  AF  GKO? ,  UNI  T  =  S  YSDA  ,  VUL  =  S  F  k  =  l»St  R  PK 
/* 

//ST  E  P 1  F  X  EC  FORTGCG 
//FORT.5YS1N  PD  * 

//GO.FT OIF  0nl  DD  DSN  =  G DAT A T EM ,UN1T  =  SYSUA , 

//  SPACE  =  (TRK, <5,1 ) ,KLSE )  , 

//  D1SP  =  (NEW, PASS, DELE  IE )  , 

//  t)CB  =  (RECFM=FB,LRFCL=SO,t‘.LKSlZE=;.C'n) 

//GO.SYS1N  DD  * 

/* 

//STEP2  EXEC  FORTGCG 

//FORT.SYSL1N  L'D  DSN  =  CLOADSE I ,D1 SP= (Nl W, MASS  ) , 

//  UN]  T  =  S-YSSO, SPACE=  (80,  <200, 150 ) , kll E )  ,  DC  [•=!'  LKS  17  L  =  t  f 
//FORT .SYS  IN  DD  * 

// GO -F TO  IF  001  DD  DSN  =  C DATA! F M ,UN1 T =SYSDA , 

//  01 SP= (ULD#PLLE IE ) 

//G0.FT03F  7.  '1  DD  DSN  =  JUNU.AF  3F03 ,UN  1 1 =S YSD A » VDL  =  SE K  =  USE RPK , 

//  D1SP=(MEW,PASS,DELE1E )  , 

//  SPACL=(26000, (15, 3), RISE), 

//  GCEi=(KEcFM=FT,LR6CL--26DCC,OLKS17L  =  26UCC,LUFNO-l  ) 

//GO  •  SYS  IN  DO  * 

/♦ 


JCL  to  run  step  3 


JOB  ORIGIN  FROM  LOCAL  0£V1CE=RD1  ,20C. 

//P 1225  1 13  JOB  FC803  ,OANA,MSGLB'*EL=l 
/♦MAIN  REGIONS 30  »T IME=30  »  LINE  S=4 
//STEP3  LXEC  FORTGCG 
//FORT.  SYS  IN  f)  D  * 

/♦ 

//GO. FT 03FCJ1  OD  DSN=JOND. AF0803,UN  IT=SYSDA, VOL= SER=USERPK , 
//  DISP=(OLD, KEEP, KEEP), 

//  SPACE=(26000» (15,3),RLSE), 

//  DCB=(RECFM=FT,LRECL=26000,BLKSI2E=26000,BUFN0=1) 

//GO .SYS IN  OD  ♦ 

/* 

// 


JCL  to  run  step  4 


JOB  ORIGIN  FROM  LOCAL  DFVICE=RD1  »20C. 

//B1225TI6  JOB  FC803 ,DANA,M$GLEVEL=1 
//STEP4  EXLC  FORTGCG 

//FORT .SYSLIN  DD  DSN=LLOADSE  T ,DISP={ NEW, PASS), 

//  UNIT=SYS$U,SPACE=(80, (200, 150) ,RLSE) ,DCB=BLKSIZE=80 
//FORT • SYS  IN  OD  * 

/* 

//G0.FTC3F0C1  DO  DSN=JUNO.  AF08G3,  UN  IT=SYSDA  ,  VOL=SER=i)SERPK  , 
//  DISP=(OLO, KEEP, KEEP), 

//  SPACE=(26000, ( 15,3),RLSE)» 

//  SPACE=(26000,(15,3),RLSE), 

//  DCB=(RECFM=FT,LRECL=26000,BLKSI2E=26000,BUFNO=1 ) 

//GO.SYSIN  OD  * 

/* 

// 
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APPENDIX  C 


Rectangular  Plate  Mesh  Generator 


A.  Introduction 

This  mesh  generator  will  yield  element,  nodal,  material,  and 
temperature  distribution  data  necessary  to  idealize  a  rectangular 
5 '‘lid  laminate  subjected  to  plate  bending  loads  or  axial  extension  in 
the  x,  y  or  z-directions.  Force  and  displacement  boundary  conditions 
for  each  node  are  generated  by  specifying  the  boundary  condition  codes 
and  values  at  a  point,  along  a  line  or  on  a  plane.  From  one  to  six  elements 
can  be  specified  in  the  x-  or  y-directions  and  from  one  to  ten  elements 
can  be  specified  in  the  z-direction.  Figure  C-l  shows  a  typical  mesh. 
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B .  Input  Data 


1.  Heading  Card  (10A8) 

Columns  1-80  information  to  be  printed  with  output 

2.  Output  unit  card  (1615) 

Columns  1-5  unit  number  (specifies  the  unit  for  passing  data 
to  the  next  job  step,  e.g.  unit  seven  if  data  is 
to  be  punched  on  cards) 

3.  Control  parameters  cards  two  cards 
First  card  (215,  F10.2) 

Columns  1-5  type  of  thermal -elastic  problem  (called  classes) 

*  1  *  -  elastic  only,  constant  material  properties 

within  an  element 

'2'  -  elastic  only,  material  properties  can  vary 
within  an  element 

'3'  -  thermal  elastic,  material  properties  cannot 
vary  with  temperature  within  an  element 
'4'  -  thermal  elastic,  material  properties  can 
vary  with  temperature  within  ar.  element 
(Class  1  or  2  elements  cannot  be  mixed  with  Class 
3  or  4  elements.  Classes  1  and  2  can  be  mixed 
and  classes  3  and  4  can  be  mixed.) 

6-10  type  of  temperature  distribution 
'O'  -  constant  temperature 

*  1  *  -  one  dimensional  variation,  x-direction 
'2*  -  one  dimensional  variation,  y-direction 
'3'  -  one  dimensional  variation,  z-direction 
'4'  -  two  dimensional  variation,  x-y  plane 
'S'  -  two  dimensional  variation,  x-z  plane 
'6'  -  two  dimensional  variation,  y-z  plane 
'7'  -  three  dimensional  variation  (not  used) 

11-20  initial  temperature 
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Second  card  (110,  2F10.5)  blank  card  if  class  1  or  2. 

Columns  1-10  maximum  number  of  iterations  for  finding  tempera¬ 
ture  distribution 

11-20  initial  guess  for  temperature  distribution 
21-30  accuracy  of  temperature  distribution 

4.  Plate  and  mesh  dimensions  card  (3(15,  F10.0))  one  card 
Columns  1-5  number  of  elements  in  the  x-direction  ('1'  to  '6') 

6-15  x-dimension  of  plate,  a 

16-20  number  of  elements  in  the  v-direction  ('1'  to  '6') 
21-30  y-dimension  of  plate,  b 

31-35  number  of  elements  in  the  z-directicn  (’!'  to  '6') 
36-45  z -dimension  of  plate,  t 

5.  Material  change  data  cards  (1615) 

Columns  1-5  number  of  materials 

5- 10  number  of  material  changes 
11-15  material  number 

16-20  element  number  at  which  the  material  changed 

(Use  as  many  sets  of  material  number  and  element 
number  as  required  to  describe  at  which  element 
a  material  is  changed.  The  elements  are  numbered, 
on  the  plate,  first  in  the  y-direction,  then  the 
x-direction  and  then  in  the  z-direction.) 

6.  Material  data  cards  two  cards 

First  caii  (215,  7F10.0)  one  for  each  material 
Columns  1-5  material  number  (in  sequential  order) 

6- 10  number  of  material  cards 

('1*  for  class  1 ,  2  or  3) 

11-20  fiber  orientation  in  degrees 
21-30  thermal  expansion  coefficient, 

31-40  thermal  expansion  coefficient,  a ^ 

41-50  thermal  expansion  coefficient,  cx.^ 

Subsequent  cards  (FS.0,  3F10.0,  3F5.2,  3F10.0)  (One  card  for 
problem  class  1,  2  or  3.  And  for  problem  class  4,  one 
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card  for  each  temperature  for  which  material  properties  are 
specified.) 

Columns  1-5  temperature  for  material  properties 

(can  be  left  blank  for  class  1  and  2  problems) 
6-15  modulus  of  elasticity,  E^,  KSI 
16-25  modulus  of  elasticity,  E22,  KSI 
26-35  modulus  of  elasticity,  E^>  KSI 
36-40  Poisson's  ratio,  v^2 
41-45  Poisson's  ratio,  v13 
46-50  Poisson's  ratio,  v23 
51-60  shear  modulus,  G12  KSI 

61-70  shear  modulus,  G13  KSI 

71-80  shear  modulus,  G23  KSI 


7.  Element  change  data  cards  (1615) 

Columns  1-5  number  of  unique  elements 
6-10  number  of  element  changes 
11-15  element  type  number 

16-20  element  number  at  which  the  element  type  changes 
(Use  as  many  sets  of  element  type  and  element 
number  as  required  to  describe  at  which  element 
number  an  element  type  is  changed.) 


8.  z-direction  load  coefficients  (8F10.0)  one  card  (leave  blank 
if  no  loads  in  the  z-direction) 

The  load  in  the  z-direction  is  evaluated  from  the  following 
expression. 


P 


Cj  +  C2x  +  C3y  +  C4x?  +  C5y2  +  C&xy 


+  C„ 


sm 


1TX 


■  f 

.  my  „  .  mx 

sm  =*-  +  C0  sm  jtt-  sm 

B  J  o  ZAJ 


HL 

2B 


Where: 

Columns  1-10  C^,  constant  coefficient 

11-20  C2,  coefficient  for  linear  variation  in  the 
x-direction 
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21-30  Cg,  coefficient  for  linear  variation  in  the  in¬ 
direction 

31-40  C^,  coefficient  for  quadratic  variation  in  the  x- 
direction 

41-50  Cg,  coefficient  for  quadratic  variation  in  the  in¬ 
direction 

51-60  Cg,  coefficient  for  product  variation  in  x  and  y 
directions 

61-70  0^,  coefficient  for  full  sine  function  in  x  and  y 
directions 

71-80  CQ,  coefficient  for  half  sine  function  in  x  and  y 

O 

directions 


Temperature  boundary  conditions  (8F10. 

0) 

one 

card 

(Leave  blank  for  class  1  or  2) 

Columns  1-10  temperature  at 

comer 

1 

(x, 

y, 

z)  = 

(0, 

0, 

0) 

11-20  temperature  at 

corner 

2 

(x, 

y> 

z)  = 

(a. 

0, 

0) 

21-30  temperature  at 

comer 

3 

(x. 

y. 

z)  = 

(0, 

b. 

0) 

31-40  temperature  at 

comer 

4 

(x. 

y > 

z)  = 

(a. 

b. 

0) 

41-50  temperature  at 

comer 

5 

(x. 

y> 

z)  = 

(0, 

o, 

t) 

51-60  temperature  at 

comer 

6 

(x. 

y, 

z)  = 

(a. 

o, 

t) 

61-70  temperature  at 

comer  7 

(x, 

y, 

z)  = 

(0, 

b, 

t) 

71-80  temperature  at 

comer 

8 

(x. 

y. 

Z)  = 

(a. 

b, 

t) 

Material  properties  at  nodes 

First  Card  (415,  3F10.0)  blank  card 

for  class  1 

,  3 

or 

4 

Columns  1-5  number  of  material  property  cards 

Second  Card  (415,  3F10.0)  no  cards  for  class  1„  3  or  4 
Columns  1-5  material  number 

6-10  index  coordinate,  x-direction 
11-15  index  coordinate,  y-direction 
16-20  index  coordinate,  z-direction 

11.  Force/displacement  boundary  conditions  (415,  3F10.0) 
Columns  1-5  boundary  condition  code 
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6-10  index  coordinate,  x-direction 
11-15  index  coordinate,  v-direction 
16-20  index  coordinate,  z-direction 
21-30  magnitude  of  x-direction  boundary  condition 
31-40  magnitude  of  y-direction  boundary  condition 
41-50  magnitude  of  z-direction  boundary  condition 


o  o  o  o  r>  o 


C  MAIN  PROGRAM  STEP  1A  MGP 

C  MGP 

C  **********************************  MGP 

C  *  *  MGP 

C  *  THIS  MESH  GENERATOR  IDEALIZES  A  RECTANGULAR  LAMINATED  PLATE  *  HGP 

C  *  *  MGP 

C  **********************************  MGP 

C  '  MGP 

IMPLICIT  REALMS  <A-HfO-Z)  MGP 

1NTEGCR*2  IX,  ICOOt,  IDPIX1,  MTLND  MGP 

COM.’ .ON  /GENHAT/  X(1C66),Y(  1066  )  ,Z  I  1066)  ,UX{  1064 )  ,UY  ( 1066 )  ,UZ!  1066  J  MGP 

1  ,  TMPND ( 1066 ) ,  BCTMP (81,  MGP 

2  ALEAK  10) , ALFA2I  10) , ALFA3 { 10 ) .FIBORT ( 10) ,E ( 10,9 , 10 ) , IMPEL ( 10, 10 ) ,MGP 

3  NTMP(10)*IX(l44»27),IC0DE(1066),IDPIXl(19,19»ll)*MT  LND 1 1066)  MGP 
COMMON  /  GCNL1  /  TMPINT ,  EPSTMP,  AX,  BY,  CZ,  THELLX, THELLY,ELLZ,MGP 

1  NEL,  NGNP ,  NGLOE,  NMTL ,  NTYEL,  LMTMP,  NELX,  NELY,  NELZ,  ICLASSMGP 
?.  ,  ITYTD,  NELX31,  NE1Y31,  NElZl  MGP 

COMMON  /  HEAD  /.  HEO(  1 0)  ,  I  CRD,  1WRT  ,  1  PAGE  ,LINE  MGP 

1000  FORMAT  (  1615)  MGP 

1001  FORMAT (215,  F10.2,  3F10.U)  MGP 

1002  FORMAT (F5.0,  3F10.0,  3F5.2,  3F10.0)  MGP 

1003  FORMAT (  14,  14,  12,  6F10.O,  F10.2)  HGP 

1004  FORMAT (  10AB)  MGP 

1005  FORMAT (  415,  F10.2)  '  MGP 

1011  FORMAT (110,  2F10.51  HGP 

I  CRD  =  5  MGP 

IPAGE  =  1  MGP 

IHRT  =  6  MGP 

REAO<5,1004)  HEO  MGP 

READ (5,1  COO)  NTUT  •  MGP 

RLAD(5,1001)  ICLASS,  ITYTD,  AMBTMP  HGP 

READ(5,1011)  LHTHP,  THPINT ,  EPSTMP  MGP 

MGP 

GENERATE  MESH  AND  BOUNDARY  CONDITIONS  HGP 

MGP 

CALL  MSHGEN  MGP 

CALL  BCGEN  MGP 

DO  20  1=1, NGNP  MGP 

20  TMPND(l)  =  AMBTMP  HGP 

IF  <  ICLASS  ,LE.  2  )  GO  TO  1  MGP 

CALL  TMPDST  MGP 

1  CONTINUE  MGP 

CALL  DISPLY  .  MGP 

CALL  MODE  MGP 

HGP 

WRITE  MESH  OATA  ON  UNIT  NTUT  HGP 

MGP 

WR1TE(NTUT ,1004)  HEO  HGP 

WR IT E( NTUT, 1005 )  NGNP,  NMTL,  NEL,  NTYEL,  AMBTHP  HGP 

DO  10  1MTL= 1, NMTL  MGP 

WRIT! (NTUT, 1001)  IMTL ,  NTMP(IMTL),  F IBORT( irtTL )  ,  ALFAl(lMTL),  MGP 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

sro 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


1  ALFA2( IMTL),  ALFA3< 1MTL) 

MGP 

520 

NTMP1  =  NTMPfIMTL) 

MGP 

530 

00  10  lTMP=lf NTMP1 

MGP 

540 

10 

WHITE (NTUT  » 1002  )  IMPEL < 1 MTL , 1TMP ) f  < E < IMTL, J , 1TMP ) , J=1 ,9 ) 

MGP 

550 

00  30  1NEL=1,NIL 

MGP 

560 

30 

WHITE (NTUT* 1000)  INEL,  (IX (INEL , J) , J=1 ,27 ) 

MGP 

570 

DO  40  M=1,NGNP 

MGP 

580 

40 

WHITE (NTUT  1 1003 )  K,  MTLNO(M),  ICOOE(M),  X(M),  Y(M),  Z(M), 

MGP 

590 

1  UX ( H ) «  UY(M),  UZ(  M  ) ,  TMPND1H) 

MGP 

600 

1 F (  NTUT  .NE.  7)  REWIND  NTUT 

MGP 

610 

STOP 

MGP 

620 

ENO 

MGP 

630 

c-<> 


SUBROUTINE  HSHGEN 


MSP 
MSP 

**********************************  MSP 

*  *  MSP 

*  SUBROUTINE  MSHGEN  GENERATES  THE  MESH  AND  NUMBERS  NODES  AND  *  MSP 

*  ELEMENTS  *  MSP 

*  *  MSP 

**********************************  MSP 

MSP 

IMPLICIT  REAL +8  (A-H.O-Z)  MSP 

INTEGERS  IX,  ICOOE,  1UP1X1,  MTLNO  MSP 

COMMON  /GENMAT/  X(1066),Y<  1066  )  ,Z ( 1066) ,UX( 1066 ) ,UY <  1066) ,UZ ( 1066 >MSP 

1  ,  TMPND! 1066) ,  BCTMPI8),  MSP 

2  ALFAK10) ,ALFA2( 10),ALFA3!10) ,PI BORT ( 10 ) ,E ( 10, 9 , 1 0 ) ,TMPEL I  10, 10 ) ,MSP 

3  NTMPI 10) ,lX( 144,27) , ICOOE ( 1066) , IDPIX1 ( 19, 19 , 1 1 » ,MTLND ( 1066)  MSP 
COMMON  /  GENLl  /  TMP1NT,  EPSTMP,  AX,  bY,  CZ ,  THELLX ,THFLLY ,ELLZ,MSP 

1  NfcL »  NGNP ,  NGLDF,  NMTL,  NTYLL,  LMTMP,  NELX,  NELY,  NELZ,  ICLASSMSP 

2  ,  ITYTD,  NELX31 ,  ME..Y31,  NELZ1 
COMMON  /  CORD  /  RUNX,  RUNY,  KUN2,  IRUNX,  IRONY,  1RUNZ,  1ST 
COMMON  /0ATD1S/  XCROI IV) ,  YCRDJ19),  ZCRD(ll) 

COMMON  /  HEAD  /  HED( 10) , ICRO, IWRT , IP AGE, LINE 
DIMENSION  IHATL(IO),  IXMLCH(IC),  ITYEUIO),  IXELCH(IO) 


DIMENSION  1NEWX! 16) ,  1RECX! 8 ) ,  IPSSX (8) 
DIMENSION  1NEHZ 1 ( 12 ) ,  IRECZ(12), 

1  1NEHZ3  ( 8)  ,  IPSSXZ(4),  IREC  XZ(  4 ) 

DIMENSION  ISG1(3),  ISG2J3),  ISG3(3),  ISG4I3) 
DIMENSION  LNCRD(IZ),  1STCDXU2),  I  STCDYC 12  ) 


IPSSY  (4  )  ,  IRECYU), 


MSP 

MSP 

MSP 

HSP 

MSP 

MSP 

MSP 

MSP 

MSP 

MSP 


204  FOkMAT ( '0PLAT E  DIMENSIONS',  T40,  'X  =',  F9.3,  •  Y  =  ',  F9.3, 

1  '  Z  =',  F9.3  ) 

205  FORMAT ( •  NUMBER  OF  ELEMENT',  T40,  «XN  =',  13,  *  YN  =',  13, 

1  •  ZN  13) 

206  FORMAT! 'OMATEklAL  IYPE  AND  MATERIAL  CHANGES'  / 


I  T 10,  'MATERIAL  TYPE 

306  FORMAT ! 18X,  12,  22X,  14) 

307  F0PMA1  COELEHENT  TYPE  AND  ELEMENT  CHANGES' 


CHANGE  AT  ELEMENT*  ) 


MSP 

HSP 

MSP 

MSP 

HSP 

MSP 

MSP 

MSP 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


DATA 

INEWX/  2,3,4,6,7,0,11,12,15,16,18,19,20,22,23,24 

/ 

MSP 

280 

DATA 

IRECX/  1,5,9,10,13,14,17,21  / 

MSP 

290 

DATA 

IPSSX/  4,0,11,12,15,16,20,24  / 

HSP 

300 

, 

DATA 

INEWZ1  /  5,6,7,  8$  13,  14,  15,  16,  21,  22,  Z3, 

24  / 

MSP 

310 

DATA 

IRECZ  /  1,  2,  3,  4,  9,  10,  11,  12,  17,  18,  19, 

20  / 

MSP 

320 

UAT  A 

IPSSY  /  21,  22,  23,  24  / 

MSP 

330 

OATA 

IRECY  /  5,  6,  7,  B  / 

MSP 

340 

DATA 

INEWZ3  /  6,  7,  B,  15,  16,  22,  23,  24  / 

HSP 

350 

DATA 

1PSSX2  /  8,  15,  16,  24  / 

MSP 

360 

DATA 

IRtCXZ  /  5,  13,  14,  21  / 

MSP 

370 

OATA 

ISG1,  I SG2 ,  1 SG3 ,  1SG4  /B, 1 ,7,7, 1, 8,4 ,1 ,5, 3,2 , 2/ 

MSP 

300 

DATA 

LNCRD  /6 ,  6,  7,  8,  13,  14,  15,  16,  21,  22,  23, 

24  / 

HSP 

390 

DATA 

ISTCDX  /O,  1,  1,  1,  -3,  0,  3,  0,  -3,  1,  1,  1  / 

MSP 

400 

OATA 

1STCDY  /  0,  0,  0,  0,  1,  1,  -1,  1,  1,  0,  0,  0  / 

MSP 

410 

100 

FORMAT!  1615) 

MSP 

420 

101 

FORMAT!  3(15  ,  F10.0) ) 

P.SP 

430 

440 

450 

460 

470 

480 

490 

500 

510 
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1. 


k 


1  T10,  ’ELEMENT  TYPE  CHANGE  AT  ELEMENT'  J 

1001  FORMAT (215,  7F10.0) 

1002  FORMAT ( F5.0,  3F10.C,  3F5.0,  3F10.0) 

REAOdCRO,  1  Cl )  NELXt  AX,  NELY,  BY,  NELZ,  C2 

READ ( ICKO, 100 )  NMIL ,  NMLCH,  I 1MATH J ) , IXMLCHl J ) , 4  =  1 ,NMLCH) 

DO  71  IMTL=  1 , NMTL 

REAOdCRO  ,1001)  MTLN ,  NTMPdMTL),  F180RT ( IMTL ) ,  ALFA  11 1MTL ) , 
1  ALFA2I IMTL),  AL FA3( IMTL) 

NT  HP  I  =  NTMPl IMTL ) 

DO  71  1TMP=1, NTMPl 

71  REAOdCRO  ,1002)  TMPLLdMTL,  ITMP  ! ,  ( £ (IKTLi 4, ITMP )  ,J=1,9) 
REAOdCRO, 100)  NTYEL  ,  NELCH,  (IT  /EL(4),IXE  LCH  (  J  )  ,  J  =  1  ,NELCH ) 
CALL  TITLE 

WR 1TE (IWRT ,204 )  AX,  BY,  CZ 

WR  ITE( IWRT , 205 )  NELX,  NELY,  NELZ 

WRITE! IWRT ,206) 

WRITE! IWRT, 30 6)  (IMaTL(J),  IXMLCH(J),  4=1, NMLCH) 

'WRITE! IWRT, 307) 

WRITE! IWRT, 306)  (ITYEL(J),  1 X ELCH1J ) ,J=1, NELCH ) 

1NLL  =  0 

DO  1  IELY=1,NELY 
INfcL  =  INEL+1 
IF.LY1=  IELY-1 
DO  1  4=1,24 

I GNP  =  4+16*IELYl 

1  IX(INELfJ)  =  I GNP 

IF (NELX  .EO.  1  )  GO  TO  6 

DO  5  IELX=2,NELX 

IGNPL  =  IGNP 

DO  3  IELY=1,NELY 

INLL  =  I NFL  ♦  1 

I MNY  =  1NEL-NELY 

DO  2  J=l,8 

2  IXdNEL.IRECX(J))  =  IX  !  IMNY,  1PSSX  (  J) ) 

3  CONTINUE 

INEL  =  INEL-  NELY 

DO  5  IE  LY=1 , NELY 

INEL  =  INEL+1 

1ELY 1=  IELY-1 

00  4  J= 1,16 

IGNP  =  IGNPL+4+10*IELYl 

4  I  X (INEL, 1NEWX ( J ) )  =  IGNP 

5  CONTINUE 

6  CONTINUE 

IF (NLLZ  .EO.  1  )  GO  TO  59 
00  22  I FLZ  =  2, NELZ 
INLL  =  INEL+1 
IMNZ  =  INEL-NELX*NELY 
DO  7  4=1,12 

7  I X 1 1 NEL ,  1RECZ  ( 4 ) )  =  IX  <  IMN7 ,  INEWZH4 )  ) 

DO  8  4=1,12 


MSP  520 
MSP  530 
MSP  540 
MSP  550 
MSP  560 
MSP  570 
MSP  500 
MSP  590 
MSP  600 
HSP  610 
MSP  620 
MSP  630 
MSP  640 
MSP  650 
MSP  660 
MSP  670 
MSP  600 
HSP  690 
MSP  700 
MSP  710 
HSP  720 
:*SP  730 
MSP  740 
KSP  750 
MSP  760 
MSP  770 
MSP  760 
MSP  790 
MSP  800 
MSP  810 
MSP  820 
MSP  830 
MSP  840 
MSP  850 
MSP  060 
MSP  870 
MSP  880 
MSP  890 
HSP  900 
MSP  910 
MSP  920 
MSP  930 
MSP  940 
HSP  950 
MSP  960 
HSP  970 
MSP  980 
MSP  990 
HSP  1000 
MSP  1010 
HSP  1020 


IGNP  =  IGNP+1 

HSP 

1030 

0 

IXIINt-L.lNfcWZlI  Jl)  =  IGNP 

MSP 

1040 

I FINELY  .EQ.  1)  GO  TO  66 

HSP 

1050 

DO  12  IELY  =2  *NELY 

HSP 

1060 

1NEL  =  INEL+1 

HSP 

1070 

IHNZ  =  INEL-NELX+NELY 

HSP 

1080 

DO  9  J=1 *  12 

HSP 

1090 

9 

IXdNEL, IRECZ(J))  =  IX ( IHNZ * 1NEWZ1 ( J) 1 

HSP 

1100 

DO  10  J=l,4 

HSP 

1110 

10 

IX ( INEL, 1RECY t  J / )  =  1X(INEL-1,1PSSY  (Jl) 

HSP 

1120 

DO  11  J  =5 , 12 

HSP 

1130 

IGNP  =  IGNP+1 

HSP 

1140 

11 

IXdNEL,  INEMZK  J)  I  =  IGNP 

HSP 

1150 

12 

CONTINUE 

HSP 

1160 

66 

CONTINUE 

HSP 

1170 

IF(N£LX  .EC.  1)  GO  TO  2? 

HSP 

1180 

00  21  IfcLX  =2»NEl X 

HSP 

1190 

•INEL  =  INEL  +  1 

HSP 

1200 

IHNZ  =  INEL-NELX+NELY 

HSP 

1210 

00  13  J=l,12 

HSP 

1220 

13 

1X1INEL,IRLCZ(J))  =  lXdHNZ.INEHZIUn 

HSP 

1230 

1HNX  =  INEL-NEIY 

HSP 

1240 

DO  14  J  =  l,4 

MSP 

1250 

14 

IXdNEL,  IRECXZ<  Jl)  =  IX< IMNX, IPSSXZI J) ) 

HSP 

1260 

00  15  J  =  l,6 

HSP 

1270 

IGNP  =  IGNP+1 

HSP 

1280 

15 

IXdNEL, 1NEWZ31J)  )  =  IGNP 

HSP 

1290 

I FINELY  .bO.  1>  GO  TO  21 

HSP 

1300 

DO  20  IELY  =  2.NELY 

HSP 

1310 

INEL  =  INEL+1 

HSP 

1320 

IHNZ  =  INEL-NELX+NELY 

HSP 

1330 

1MNX  =  INEL-NELY 

HSP 

1340 

00  16  J=l» 12 

MSP 

1350 

16 

IXdNEL, IRECZ(JI)  =  IX  (IHNZ,  INEHZ 1  ( J )  ) 

MSP 

1360 

00  17  J  =1 , 4 

HSP 

1370 

17 

IXdNEL, 1RECXZI  J)  )  =  1 X ( IHNX,  IPSSXZI  J)  ) 

MSP 

1380 

00  18  J=2 ,4 

HSP 

1390 

18 

IXdNEL,  IRECY(J) )  =  IX  ( INEL-1 , 1PSSY  (Jl) 

HSP 

1400 

00  19  J=4,8 

HSP 

1410 

IGNP  =  IGNP+1 

HSP 

1420 

19 

IXdNEL,  INLWZ3IJ)  1  =  IGNP 

MI'S* 

1430 

20 

CUNTINUE 

HSP 

:  -40 

21 

CONTINUE 

MSP 

1450 

22 

CONT INUL 

MSP 

>460 

59 

NCL  =  INEL 

HSP 

1470 

I  XtLCH(NELCH+l  1  =■  0 

HSP 

1480 

1 XHLCH (NHLCH+ 1 1  =  0 

HSP 

1490 

I  =  0 

HSP 

1500 

J  =  0 

MSP 

1510 

DU  23  INEL=1,NEL 

HSP 

1520 

iFdNEL  .EQ.  IXMLCH(  1  +  1)1  1  =  1  +  1 

MSP 

1530 
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IFtlNEL  .EO.  IXELCHl J*l) )  JcJ+1 
I  X ( 1NEL, 25 )  =  IHATL(l) 

IX ( INEL, 26 )  =  ITYfcL(J) 

IX ( 1NEL*  27 )  =  ICLASS 

23  CONTINUE 

ELLX  =  AX/NELX 
ELLY  =  BY/NELY 
ELLZ  =  CZ/NELZ 
THELLX  =  E l LX/3. 

THLLLY  =  ELLY/3. 

IRUNX  =  1 
NELX31  =  NELX*3+1 
NELY31  =  NE  LY*3+1 
NELZ1  =  NELZ+1 
IRUNY  =  1 
IRUNZ  =  1 
RUNX  =  OOO 
RUNY  =  000 
RUNZ  =  ELLZ 
1GNP  =  1 
1ST  =  A 

DO  24  I = 1 , NELX31 
00  24  J=1,NCLY31 
00  24  K=1,NELZ1 

24  IDPIXUI.J.K)  =  0 
XCRD(l)  =  0.0 
YCROUJ  =  0.0 
ZCPDU)  =  0.0 

00  25  I=2,NELX31 

25  XCRDIll  =  XCRD(I-l)  ♦  THELLX 
DO  26  I=2,NELY31 

26  YCROU)  =  YCRO(l-l)  ♦  THLLLY 
00  27  I=1,NELZ 

27  ZCRD1I+1 )  =  ZCRDII)  ♦  ELLZ 
00  28  IELY=1,NELY 

00  28  .1=1,3 
CALL  COORD ( 1GNP ) 

1GNP  a  1GNP  ♦  ISGl(J) 

IRONY  =  IRUNY+l 

28  RUNY  =  RUNY  +  THELLY 
CALL  COORD (IGNP) 

00  30  1=1,2 

IRUNX  =  1RUNX+1 

RUNX  =  RUNX  +  THELLX 

IGNP  =  1*1 

IRUNY  =  1 

RUNY  =  ODG 

00  29  IELY=1,NELY 

CALL  COORD ( IGNP ) 

IGNP  =  IGNP  ♦  16 
IRUNY  =  1RUWY+3 


MSP 

1540 

MSP 

1550 

MSP 

1560 

MSP 

1570 

MSP 

1580 

MSP 

1590 

MSP 

1600 

MSP 

1610 

MSP 

1620 

MSP 

1630 

MSP 

1640 

MSP 

1650 

MSP 

1660 

MSP 

1670 

MSP 

1680 

MSP 

1690 

MSP 

1700 

MSP 

1710 

MSP 

1720 

MSP 

1730 

MSP 

1740 

MSP 

1750 

MSP 

1760 

MSP 

1770 

MSP 

1780 

MSP 

1790 

HSP 

1800 

MSP 

1810 

MSP 

1820 

HSP 

1830 

HSP 

1840 

MSP 

1850 

HSP 

1860 

MSP 

1870 

HSP 

1880 

MSP 

1890 

MSP 

1900 

MSP 

1910 

HSP 

1920 

MSP 

1930 

HSP 

1940 

MSP 

1950 

MSP 

1960 

HSP 

1970 

MSP 

1980 

MSP 

1990 

MSP 

2000 

MSP 

2010 

MSP 

2020 

MSP 

2030 

MSP 

2040 
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29  RUNY  =  RUNY  ♦  ELLY 
CALL  COORD ( IGNP ) 

30  CONTINUE 
IRUNX  =  IRUNX+1 
RUNX  =  RUNX  ♦  THELLX 
I GNP  =  4 

I RUNY  =  X 
RUNY  =  ODO 
DO  31  IELY=1,NELY 
DO  31  J=l,3 
CALL  COORD (IGNP) 

IGNP  =  I GNP  ♦  I SG2 ( J ) 

1 RUNY  =  IRUNY+1 

31  RUNY  «■  RUNY  ♦  THELLY 
CALL  COORD (IGNP) 

I GNP  =  IGNP  ♦  l 
1ST  =  3 

'1 F <NELX  .EO.  1  )  GO  TO  61 

DO  35  IELX=2,N£LX 

1GNPL  =  1GNP+  3 

DU  33  1=1,2 

IRUNX  =  IRUNX+1 

RUNX  =  RUNX  +  THELLX 

IGNP  =  IGNPL  +  I 

IRONY  a  1 

RUNY  a  ODO 

DO  32  IELYal.NELY 

CALL  COORDI IGNP ) 

IGNP  a  IGNP  ♦  10 
I RUNY  =  IRUNY+3 

32  RUNY  =  RUNY  +  ELLY 
CALL  COORD ( IGNP J 

33  CONTINUE 

IRUNX  =  IRUNX+1 

RUNX  =  RUNX  ♦  THELLX  , 

IGNP  a  IGNPL  +  3 
IRONY  =  l 
RUNY  a  COO 
DO  34  IfcLY=l*NLLY 
DO  34  J=l,3 

t DPI XI ( IRUNX, IRUNY*1)  a  IGNP 
10P1XI (IRUNX, I RUNY, 2) alGNP+ISG4( J ) 
X ( IGNP  )  =  RUNX. 

X ( IGNP+I SG4 ( J ) )  =  RUNX 
Y ( IGNP  )  =  RUNY 
Y  < IGNP+I SG4(  J ) J  =  RUNY 
l I IGNP  )  a  ODO 
Z< IGNP+I SG4(J))  =  RUNZ 
IGNP  =  IGNP  ♦  ISG3(J) 

I RUNY  =  IRUNY+1 

34  RUNY  =  RUNY  +  THELLY 


MSP  2030 
MSP  2060 
MSP  2070 
MSP  2080 
MSP  2090 
MSP  2100 
MSP  2110 
MSP  2120 
MSP  2130 
MSP  2140 
MSP  2150 
MSP  2160 
MSP  2170 
MSP  2160 
MSP  2190 
MSP  2200 
MSP  2210 
MSP  2220 
MSP  2230 
MSP  2240 
MSP  2250 
MSP  2260 
MSP  2270 
MSP  2200 
MSP -2290 
MSP  2300 
MSP  2310 
MSP  2J20 
MSP  2330 
MSP  2340 
MSP  2350 
MSP  2360 
MSP  2370 
MSP  2380 
MSP  2390 
MSP  2400 
MSP  24 ’0 
MSP  2420 
MSP  2430 
MSP  2440 
MSP  2450 
MSP  2460 
MSP  2470 
MSP  2480 
MSP  2490 
MSP  2500 
MSP  2510 
MSP  2520 
MSP  2530 
MSP  2540 
MSP  2550 
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35  CALL  CO  RD(IGNP) 

61  CONTINUE 

INF  L  =  Nt  >.X*NELY 
IFINELZ  .LF.  2)  GO  TO  37 
00  36  IELZ=2,NELZ 
IRUNX  =  1 
IRUNZ  =  ItLZ+1 
DO  36  IELX-1 »NELX 
IRUNX  =  IRUNX  *  3 
IRUNY  =  I 

00  36  IELY=1,NELY 
IRUNX  =  IRUNX-3 
INEL  =  INEL  ♦  1 
1MNZ  =  1NEL-NELY*N£LX 
DO  36  J=i » 12 
L  =  LNCRD(J) 

X  ( 1X(  INEL, LI)  =  XUX(IHNZfL)) 
;Y(IX(INEL,L>»  =  Y < 1X( IMNZ, L i ) 

Z ( IX ( INEL t  L I )  =  IELZ*£  LLZ 
IRUNX  =  IRUNX  ♦  ISTCOX(J) 

IRUNY  =  IRUNY  *  ISTCOY(J) 

36  IDPIX1 (IRUNX, IRUNY, IRUNZ)  =  1X(INEL,L) 

37  NELZ1  =  NELZ+1 

NGNP  =(IGNP  ♦  3  I  »  NELZ1/2 
00  38  1=1, NGNP 

38  MTLNO(I)  =  0 
NGLOF  =  3*NGNP 
RETURN 

END 


MSP  2560 
MSP  2570 
MSP  2580 
MSP  2590 
MSP  2600 
MSP  2610 
MSP  2620 
MSP  2630 
MSP  2640 
MSP  2650 
MSP  2660 
MSP  2670 
MSP  2680 
MSP  2690 
MSP  2700 
MSP  2710 
MSP  2720 
MSP  2730 
MSP  2740 
MSP  2750 
MSP  2760 
MSP  2770 
MSP  2780 
MSP  2790 
MSP  2800 
MSP  2810 
MSP  2820 
MSP  2830 
MSP  2840 


* 


/ 

/ 
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SUBROUTINE  COORD(IGNP) 

COP 

10 

c 

COP 

20 

c 

«******^4*4  ******  ************** 

*  *  * 

COP 

30 

c 

* 

♦ 

COP 

AO 

c 

*  SUBRv IUT1NE  COORD  CALCULATES  THE  X,YGZ-COORDINATES  FOR  EACH 

NODE* 

COP 

50 

c 

♦ 

* 

COP 

60 

c 

******************************* 

*  *  * 

COP 

70 

c 

COP 

60 

IMPLICIT  REALMS  (A-H.O-Z) 

COP 

90 

INTEGER*2  IX,  ICOOE,  IOPIX1,  MTLND 

COP 

100 

COMMON  /GENMAT/  X  ( 1066)  ,Y(  1066 )  ,ZU066)  ,UX«  1066) ,UY<  1066)  ,UZ(  1066)COP 

110 

1  ,  TMPND( 1066) ,  BCTMP (8 ) , 

COP 

120 

2  ALFA1<I0)»ALFA2(10),ALFA3(10) , FI  BURT (10),E(10,9,10) »TMPEL( 10,10) 

,COP 

130 

3  NTMP ( 10) »IX l 1AA, 27) , 1C0DE (106fa!,10P 1X1(19, 19, 11), MTLND 1 1066) 

COP 

1A0 

COMMON  /  CORD  /  RUNX,  RUNY ,  RUNZ,  1RUNX,  IRUNY,  1RUNZ,  1ST 

COP 

150 

1UP1XKI RUNX,  IRUNY,  1 )  =  1GNP 

COP 

160 

I  DPI  XI ( I RUNX, IRUNY ,2)=IGNP+1ST 

COP 

170 

•X  ( IGNP  )  =  RUNX 

COP 

1B0 

X ( 1GNP+I ST ) =RUNX 

COP 

190 

V { IGNP  )  =  RUNY 

COP 

200 

Y ( 1GNP+I  ST ) =RUNY 

COP 

210 

Z { IGNP  )  =  ODO 

COP 

220 

Z ( IGNP+1ST )=RUNZ 

COP 

230 

RETURN 

COP 

2A0 

END 

COP 

250 

/ 

/ 
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SUBROUTINE  BCGEN  BCP 

C  BCP 

C'  *******************************0**  BCP 
C  *  *  BCP 

C  *  SUBROUTINE  BCGEN  GENERATES  FORCE  AND  DISPLACEMENT  BOUNDARY  *  BCP 
C  *  CONDITION  COOES  *  BCP 

CO  *  BCP 

C  **********************************  BCP 
C  BCP 

IMPLICIT  RE AL*B  (A-H,0-Z)  '  BCP 

INTEGER*2  IX,  ICODE,  IOPIX1,  MTLND  BCP 

COMMON  /GENMAT/  XU066J.YC 106b ) ,Z < 1066 > ,UX ( 1066),UY( 1066) ,UZ( 1066) BCP 

1  ,  THPNOt 1C66) ,  BCTMP <8 1 »  BCP 

2  ALFA1(10),ALEA2( 10 ) , ALFA3 ( 10 ) .FIBORT ( 10 ) ,E < 10,9, 10)  ,TMPEL ( 10, 10 1 ,BCP 

3  NT HP (10), 1X1144, 27), 1C0D £(1066), 1 DP  1X1(19, 19, 11) ,MTLNO( 1066)  BCP 
COMMUN  /  GENLl  /  TMPINT,  EPSTMP,  AX,  BY,  CZ ,  THELLX.THELLY ,ELLZ ,BCP 

1  NEL,  NGNP ,  NGLDF,  NMTL ,  NTYEL,  LMTMP,  NELX,  NELY,  NELZ,  ICLASSBCP 

2  ,  ITYTD,  NELX31,  NELY31,  NELZ1  BCP 

COMMON  /  HEAD  /  HEIM  10) ,ICRU, 1HRT ,1PAGE,LINE  BCP 

D1MFNSI0N  ZLCOEF(B)  BCP 

01MENSI0N  LORLVT ( 12,2 ) ,  PBAR ( 24) ,  VL0HATC78) ,  P(1066),  RELVTt 78 )  BCP 
DATA  LORLVT  /  1,2, 3, A,  17, 18, 19 ,20,9, 10, 11 ,12,  ’  BCP 

1  5,6,7,8,21,22,23,24,13,16,15,16  /  BCP 

DATA  RELVT  /  4126.,  -4824.,  -2421.,  2864.,  2864.,  -3546.,  BCP 

1  -1494.,  2116.,  —',824.,  -2421.,  -3546.,  -1494.,  BCP 

2  12960.,  -1620.,  -2421.,  -3546.,  6480.,  -810.,  -1494.,  9072.,  BCP 

3  2268.,  2268.,  567.,  BCP 

4  12960.,  -4824.,  -1494.,  -8.10.,  6480.,  -3546.,  226B.,567.,  BCP 

5  9072.,  2268.,  BCP 

6  4126.,  2116.,  -1494.,  -3546.,  2864.,  -3546.,  -1494.,  -4824.,  BCP 

7  -2421.,  BCP 

8  4126.,  -4824.,  -2421.,  2864.,  -2421.,  -4824.,  -1494.,  -3546.,  BCP 

9  12960.,  -1620.,  -2421.,  2268.,  9072.,  567.,  2268.,  BCP 

A  12960.,  -4824.,  567. ,2268.,  2268.,  9077.,  BCP 

B  4126.,  -1494.,  -3546.,  -2421.,  -4824.,  BCP 

C  12960.,  -1620.,  6480.,  -810.,  12960.,  -810.,  6480.,  BCP 

D  12960.,  -1620.,  12960.  /  BCP 

102  FURMAT (8F10.0 )  BCP 

103  FURMAT (415  ,  3F10.0)  BCP 

208  FORMAT', '0L0AD1NG*  /  *  CONSTANT  COEFFICIENT*  »T40»  F13.3)  BCP 

209  FORMAT ( •  LINEAR  IN  X',  T40,  F13.3,  'X')  BCP 

210  FORMAT ( *  LINEAR  IN  Y* ,  T40,  F13.3,  *Y»)  BCP 

211  FORMAT ( *  SOUARE  IN  X*,  T40,  F13.3,  *X*X*)  BCP 

212  FORMAT ( •  SQUARE  IN  Y*,  T40,  F13.3,  *Y*Y*)  BCP 

213  FORMAT ( •  CROSS  TERM  ',  T40,  F13.3,  »X4Y*>  BCP 

214  FORMAT ( •  FULL  SINE  ',  T40,  F13.3,  BCP 

1  'SIN(PHI*X/A)  *  SIN( PH1*Y/B.) •  )  BCP 

215  FORMAT ( *  HALF  SINE  *,  T40,  F13.3,  BCP 

1  *SIN(PH1*X/2*A ) *SIN<  PH I*Y/2*P) *  )  BCP 

216  FORMAT< ^DISPLACEMENT  BOUNDARY  CONDITIONS*  /  BCP 


l  •  ICODE  X-INDEX  Y-1N0EX  Z-INDEX  X-MAGNITUDE  Y-MAGNBCP 

t 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500, 

510 
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2ITUDE  Z -MAGNITUDE'  ) 

• 

BCP 

520 

217  FORMAT! 15, T13, 1 2, T23, 12, T33, 12 , 

T4l,Gll.3,T55,GU.3,T69,G11.3> 

BCP 

530 

218  FORMAT ( • 0MA1ER1 AL  PROPERIES  AT 

NODES' 

/ 

BCP 

540 

1  •  MTLND  X-1NDEX  Y-INDEX  Z-1NDEX  •) 

BCP 

550 

DO  75  1=1 »78 

BCP 

560 

75  VLDMAT ( I )  =  RELVT ( I ) 

BCP 

570 

READ! 1CRD, 1Q2 )  ZLCOEF 

BCP 

580 

READ ( 1CRD, 102 )  BCTMP 

BCP 

590 

READ ( 1CRD, 103 i  NMTLCD 

BCP 

600 

WRITE!IWRT,208)  ZLCOEF(l) 

BCP 

610 

WR1TE(IWRT  ,209 )  ZLC0EF(2) 

BCP 

620 

WRITE! 1HRT  >210)  ZLCOEF! 3 ) 

BCP 

630 

WRITE! IWRT, 211 )  ZLCOFF ( 4) 

BCP 

640 

WRITE! IWRT ,212)  ZLC0EF!5) 

BCP 

650 

WRITE! IWRT i213)  ZLCOEF! 6) 

BCP 

660 

WRITE! IWRT, 214)  ZLC0EF17) 

BCP 

670 

WRITE! IWRT ,215)  ZLC0EF18) 

BCP 

680 

LU  =  2 

BCP 

690 

00  42  I=1,NGNP 

BCP 

700 

IC0DE1I)  =  0 

BCP 

710 

uxii;  =  ODO 

BCP 

720 

UY! I )  =  ODO 

1 

BCP 

730 

UZII)  =  ODO 

BCP 

740 

42  P!I)  =000 

BCP 

750 

NMNN1  =  NEL-N£LY*NELX*1 

BCP 

760 

DO  45  INfL=NMNNl»NEL 

BCP 

770 

DO  43  1=1,12 

BCP 

780 

L  *  LORLVT ( I, LU) 

BCP 

790 

T  =  X! IX 1 INt L ,L ) ) 

BCP 

fOO 

S  =  Y! IX! INEL ,L ) ) 

BCP 

no 

43  PBAR1I)  =  ZLCOEF ( 1 ) 

♦  ZLCOEF! 2 )*T  ♦  ZLC0EF!3)*S 

BCP 

820 

1  +  ZLCOEF! 4) *T*T  *  ZLCOEF !5 )*S*S  ♦ 

ZLCGEF(6)*T^S 

BCP 

830 

2  *ZLC0EF(7)*0S1N|3.14159*T/AX)  *DSIN(3.l4l 59*S/BY ) 

BCP 

840 

3  ♦  ZLCOEF! 8)  *USIN ( 3. 14159*T/< 2*AX ) )  *DSIN (3. 14159*S/I 2*BY) ) 

BCP 

850 

M  =  0 

BCP 

860 

DO  44  1=1,12 

BCP 

870 

K  =  IX! INEL , LORLVT ( I , LU) ) 

BCP 

880 

DO  44  J=I , 12 

BCP 

890 

L  =  IX(INEL,LORLVT(J,LU)) 

BCP 

900 

M  =  M  ♦  l 

BCP 

910 

P  !  K )  =  P !K )  ♦  VLOHATl H )  ♦  PBAR!J) 

* 

BCP 

920 

1 F( 1  .  E(J .  J)  GO  TO  4* 

BCP 

930 

P < L)  =  P « L 1  ♦  VLDMAT! H)  ♦  PBARII) 

BCP 

940 

44  CONTINUE 

BCP 

950 

45  CONTINUE 

BCP 

960 

ELLY  =  BY/NELY 

BCP 

970 

ELLX  =  AX/NELX 

BCP 

980 

AB  =  ELLX*ELLY 

BCP 

990 

DO  46  IGNP= 1,  NGNP 

BCP 

1000 

46  UZ  1 IGNP ) =  AB  *P! IGNP)  /  100800. 

BCP 

1010 

IF (NMTLCD  ,E0.  0  )  GO  TO  41 

BCP 

1020 
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CALL  TITLE 

WRITE  I IWRT t218) 

tO  40  1MTLCD= 1»NMTLCD 

READ! ICRO, 103 )  HCOOE,  IXC,  IYC»  I2C 

WRITE < IWRT  ,217 )  MCODE,  IXC,  1YC,  I2C 

I E ( IXC  .NE.  0  J  GO  TO  78 

IXO  =  I 

IXF  =  3*N£LX+1 
GO  TO  79 

78  IXO  =  IXC 
IXF  =  IXC 

79  IF! IYC  .NE.  0  )  GO  TO  80 
IYO  r  1 

IYF  =  3*NELY«-1 
GO  TO  81 

80  IYO  =  IYC 
IYF  =  IYC 

81  1FII2C  .NE.  0  )  GO  TO  82 
120  =  1 

12F  =  NELZ+1 
GO  TO  83 

82  120  =  I2C 
12F  =  1ZC 

83  CONTINUE 

DO  86  1=1X0, IXF 
DO  06  J=IYO,IYF 
DO  86  K=IZO,IZF 

IF  I IDPIX 1 ( 1 ,J  ,K )  .EO.  C  )  GO  TO  86 
HTLND! 1DPIX1! 1 , J ,K ) )  =  HCOOE 
86  CONTINUE 

40  CONTINUE 

41  CALL  TITLE 
WRITE! IWRT ,216) 

47  READ(ICRO,103,ENO=58)LCODE,1XC,IYC,IZC,OBCX,DBCY,D8CZ 

WRITE! IWRT, 217)  .  LCOOE ,  IXC,  IYC,  IZC,  DBCX,  DBCY,  DBCZ 

1 F ( I XC  .NE.  0  )  GO  TO  48 

IXO  =  1 

IXF  =  3*NELX» 1 
GO  TO  49 

48  IXO  =  IXC 
IXF  =  IXC 

49  IF!1YC  .NE.  0  )  GO  TO  50 
IYO  =  1 

IYF  =  3*NELY*1 
GO  TO  51 

50  IYO  =  IYC 
IYF  =  IYC 

51  IF! IZC  .NE.  0  }  GO  TO  52 
IZO  =  1 

IZF  =  Nt  LZ  +  1 
GO  TO  53 


BCP  1030 
BCP  1040 
BCP  1050 
BCP  1060 
BCP  1070 
BCP  1080 
BCP  1090 
BCP  1100 
BCP  1110 
BCP  1120 
BCP  1130 
BCP  1140 
BCP  1150 
BCP  1160 
BCP  1170 
BCP  1180 
BCP  1190 
BCP  1200 
BCP  1210 
BCP  1220 
BCP  1230 
BCP  1240 
BCP  1250 
BCP  1260 
8CP  1270 
BCP  1280 
BCP  1290 
BCP  1300 
BCP  1310 
BCP  1320 
BCP  1330 
BCP  1340 
BCP  1350 
BCP  1360 
BCP  1370 
BCP  .1380 
BCP  1390 
BCP  1400 
BCP  1410 
BCP  1420 
BCP  1430 
BCP  1440 
BCP  1450 
BCP  1460 
BCP  1470 
BCP  1480 
BCP  1490 
BCP  1500 
BCP  1510 
BCP  1520 
BCP  1530 
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52  120  =  IZC  BCP  1540 


JZF  -  IZC 

BCP 

1550 

53 

CONTINUE 

BCP 

1560 

DO  56  1=1X0, IXF 

BCP 

1570 

DO  56  J=1Y0,IVF 

BCP 

1500 

DO  56  K=1Z0,1ZF 

8CP 

1590 

IF(IDPIX1(I,J,K) 

.10.  C-  )  GO 

TO  56 

BCP 

1600 

ICCOtUDPIXlfl.J, 

K 1 )  =  LCODE 

BCP 

1610 

1 F ( LCODE  .EO.  0) 

GO  TO  56 

BCP 

1620 

IF1LC0UE  .10.  4 

.OR.  LCODE  . 

EW.  6) 

GO 

Tj 

54 

BCP 

1630 

IF  { LCOOF  „E0.  51 

GO  TO  55 

BCP 

1640 

UX(I0PIX1(I,J,K1) 

=  DBCX 

BCP 

1650 

IF  (LCODE  .F.O.  1) 

GO  TO  56 

BCP 

1660 

IF (LCODE  .fcO.  31 

GO  TO  55 

BCP 

1670 

54 

UY(1  OP  IXKI, J,K11 

=  O0CY 

BCP 

1680 

IF (LCODE  .EO.  2 

.OR.  LCUUE  . 

LM.  41 

GO 

TO 

56 

BCP 

1690 

55 

UZ(I DP  1X1(1, J,K)) 

=  OBCZ 

BCP 

1700 

56 

CONT  1NUE 

BCP 

1710 

GO  10  47 

BCP 

1720 

58 

RETURN 

BCP 

1730 

END 

BCP 

1740 

C-20 


SUcROUTINE  DISPLY 


**********************************  DIP 
'  •  ♦  DIP 

*  SUBROUTINE  DISPLY  DISPLAYS  THE  MESH  *  DIP 

*  *  DIP 
**********************************  DIP 

DIP 

IMPLICIT  RE'  9  ( A-H»0-Z )  DIP 

DOUBLE  PRE(  „ ION  NUMB (6 )  DIP 

INTEGER*2  iX,  ICODE,  1DP1X1,  MTLND  DIP 

I  NIEGER*2  IDPLK19)  DIP 

COMMON  /GENMAT/  X( 1066 ),Y( 1066  )  ,Z ( 1066) ,UX( 1066), UY( 1066) ,UZ( i^'66)DIP 

1  ,  TMPNOI 1 066) ,  BCTMP18),  DIP 

2  ALFA1 ( 10) » ALFA2 ( 10) , ALFA3 ( 10 >  'CJRT ( 10 ) ,E ( 10,9, 10 ) ,TMPEL ( 10, 1U ) ,DIP 

3  NTMP( 10) *IX ( 144, 2?) * 1C0DL •  It  '  . IDP1XK 19 ,19, 1 1 ) , MTLND! *  066)  DIP 

COMMON  /  GENL1  /  TMPINT ,  EPSTMP,  AX,  BY,  CZ,  THELLX,THELLY»ELLZ,DIP 

I-  NEL,  NGNP,  NGLDF,  NMTL «  NTYEL,  LMTMP,  NELX,  NELY,  NELZ,  ICLASSDIP 
2  ,  ITYTD,  NELX31,  NELY31,  NELZ1  DIP 

COMMON  /DATDIS/  XCRD{19),  YCR0U9),  ZCRDIll)  DIP 


COMMON  /  HEAD  /  HED(IO) 

,ic- 

WRT, IP AGE, LINE 

DIP 

210 

DIMENSION 

VERTLNU9), 

EL  ' 

-  (6 ) 

DIP 

220 

OATA  VERTLN 

/  6H  | 

,  6H 

i,  6tl  |, 

6H 

1,  6H 

1, 

DIP 

230 

1 

6H  | 

,  6H 

1 ,  6H  !* 

6H 

1,  6H 

1, 

DIP 

240 

2 

6H  | 

,  6H 

I»  6H  |, 

6H 

1,  6H 

1. 

DIP 

250 

3 

6H  | 

,  6H 

1,  6H  |, 

6H 

1  / 

DIP 

260 

OATA  ELEMT  / 

7HELEMENT , 

7HELEMENT,  7HELEMENT, 

7HELEHENT, 

DIP 

270 

1 

7HELEMENT, 

7HELEMLNT  / 

DIP 

280 

OATA  NUMB  /  7HNUMBERS ,7HNUMBERS*7HNUMBERS»7HNUMBERS,7HNUMBERSv 
1  7HNUMBERS  / 

199  C0RMA7 ( •  0  Z-COORD  =»  ,  E14.7) 

200  FORMAT (  *  0*  »  14X,  19F6.2) 

201  FORMAT (12X, 19 A6) 

202  FORMAT (FI  1 >2,  •  —  »,  19(14,*  —  •)) 

203  FORMAT ( 12X ,  A6,  6 ( 12X ,  A6 > ) 

204  FORMAT  (F 11  •<!,  •  --  *,  14,  6(4X,A7,I7)) 

205  FORMAT l 17X,  *|*,  6(5X,  A7,  A6)) 

206  FORMAT (Fll .2, *  ~  *,  14,  18(16)) 

1 WRT  =6 

M  =  0 

DO  38  1=1, NELX 
DO  30  L=1,NELY 
M=M+ 1 

38  I DP1X1  (3*1  ,2*L-1,  1  )  »■  M 

I  FINE  LZ  .LT.  2)  GO  TO  40 

00  39  IELZ=2,NELZ 
DO  39  1  =  1,NILX 
DO  39  L=1,NELY 
M  =  M  ♦  1 

IDPIX1(3*I  , 3*L-1 , IELZ )  =  M 

39  IUP1X1(3*I.-1,3*L-1,IELZ)  =  IDPIXl(3*I  ,3*L-1  »1ELZ-1  ) 


AO 

DO  41  I=1,NELX 

DIP 

520 

DO  41  L=1,NELY 

DIP 

530 

M  =  H  ♦  1 

OIP 

540 

41 

IDPIX1(3*I-1,3*L-1,NELZ*1)=IDP1X1(3*I  ,3*L-1,NELZ  ) 

DIP 

550 

NELX31  =  Nf.LX*3*l 

OIP 

560 

NELY31  =  N£LY*3+1 

OIP 

570 

IELZ  =  0 

DIP 

5eo 

11 

NELX6  =  NELX 

DIP 

590 

ISW1  =  0 

OIP 

600 

1ELZ  =  IELZ+1 

DIP 

610 

CALL  TITLE 

DIP 

620 

WR1TE(IWRT,199)  ZCROUELZ) 

DIP 

630 

9 

I F (NELX6  .GT.  6  )  GO  TO  8 

DIP 

640 

NELX36  =  3*NELX6*1 

DIP 

650 

NELX16=  NELX6«1 

DIP 

660 

NELX26  =  2*NELX6+ 1 

DIP 

670 

NELX62=  2*NLLX6 

DIP 

680 

NELX60  =  NELX6 

DIP 

690 

GO  TO  12 

DIP 

700 

e 

NELX36  =  19 

OIP 

710 

NELX16  =  7 

DIP 

720 

NELX26  =  13 

DIP 

730 

NLLX62  =  12 

DIP 

740 

NELX60  =  6 

DIP 

750 

12 

1 E ( 1  SHI  .EO.  0)  GO  TO  13 

DIP 

760 

N 1  =  3*1NELX6*6)*1 

DIP 

770 

00  10  1=19, N1 

DIP 

700 

XCRD(l-lO)  =  XCRD1U 

DIP 

790 

00  10  J=l,NLLY3l 

OIP 

800 

10 

I  DP 1X1(1 ~1 8, J, IELZ)  =  I0PIX1 ( I ,J, IELZ ) 

OIP 

810 

13 

1  SHI  =  1 

DIP 

820 

WR1TF! IWRT, 200)  (XCRD ( J ) , J= 1,NELX*6 ) 

DTP 

830 

WRITE! IWRT ,201 )  (VERTLN! J ),J=1,NELX36) 

rip 

840 

WRITE! IHRT ,201 )  ! VERTLN! J) , J*1,NELX36) 

OVP 

850 

WRITE! IWRT  ,202 )  YCR0(NELY31J  ,  < IDPIX1 ( J.NELY31 , IELZ  ) ,  J=1 ,NELX36 ) 

DIP 

860 

00  35  I=l,HELY 

DIP 

870 

NELY3I  =  3*(NELY-I) 

DIP 

880 

WRITE!  IWRT  ,23  3)  !  VER  T  LN  ( J  ) ,  1,NELX16  ) 

DIP 

890 

WRITE! IWRT, 203)  ( VLRT LN ! J ) , J«1 ,NELX16 ) 

DIP 

900 

H  =  0 

DIP 

910 

00  45  L=l,NtLX36, 3 

DIP 

920 

H  =  H*1 

OIP 

930 

45 

IDPLl(M)  =  I0PIXl(L,NELY3I»3,  IELZ) 

DIP 

940 

WR IT E! IWRT , 204 )  YCRD (NELY31+3 )  ,  ( IDPL1 1 J  ), ELEHT t J  )  , J  =  1 «NELX60 ) 

,DJP 

950 

1 

10PL1 (NELX60+1 ) 

DIP 

960 

WRITE! IWRT ,205)  (NUHB(J),  VERTLN(J) ,J=1«NELX60) 

DIP 

970 

WRITE! IWRT, 203V  ( VERT LN ! J ) , J=1 ,NELX16 ) 

DIP 

980 

WRITE! IWRT ,206)  YCRU(NCLY3I*2 )  ,  (1DP1X1(J,NELY3I*2, IELZ ) , 

DIP 

990 

1 

J=1,NELX36) 

DIP 

1000 

WRITE !IWRT,203)  (VtRTLN! J ) , J=1,NELX16) 

DIP 

1010 

WRITE! IWRT, 203)  ( VERT LN ( J ) , J= 1.NELX16 ) 

DIP 

1020 
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35 

WR1 (E(IWRT *232 )YCKO(NfcLY 31*1 )* 

(  1DPIX1(J*NELY3I+1 *ILLZ)*J=1*NELX36)DIP 

1030 

NfcLX6  =  NELX6-6 

DIP 

1040 

IFINELX6  .IT.  1)  GO  TO  7 

DIP 

1050 

GO  TU  9 

DIP 

1060 

7 

IFI16LZ  .LE.  NELZ  )  GO  To  ll 

DIP 

1070 

RETURN 

DIP 

1080 

END 

OIP 

1090 

w 
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SUBROUTINE  TITLE 

TIP 

10 

c 

TIP 

20 

c 

* 

.?*************•*************** 

*  *  * 

TIP 

30 

t 

* 

♦ 

TIP 

AO 

c 

* 

SUBROUTINE  TITLE  PRINTS  THE  HEADING  ON  EACH  PAGE 

* 

TIP 

50 

c 

* 

♦ 

TIP 

60 

c 

♦ 

*********  ********************* 

*  *  * 

TIP 

70 

r 

TIP 

60 

IMPLICIT  REAL*8  (A-H,U-2) 

TIP 

90 

COMMON  /  HtAO  /  MIDI  10), 1CRD, I WRT, IPAGE, LINE 

TIP 

100 

100 

FORMAT  1 1H1 FEM  72-DOF  GENERAL  HEXAHEDRONS  THERMO-ELASTIC, 

VARY1NTIP 

no 

1G  MATERIAL  PROPERTIES,  DANA',  9X,  'PAGE',  13) 

TIP 

.  120 

101 

FORMAT  I1H0.10A8  > 

TIP 

130 

WRITE  ( I WRT , 100 )  IPAGE 

TIP 

140 

WRITE  ( I WRT , 1C  1 )  HEO 

TIP 

150 

1 PAGE=  IPAGE  *1 

TIP 

160 

LINE  =  0 

TIP 

170 

RETURN 

TIP 

1BC 

END 

TIP 

190 
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SUBROUTINE  TMPOST 


TMP 

C  THP 

C  **********************************  tmp 

C  ♦  *  THP 

C  *  5UHROUT INfc  IMPOST  SOLVES  FOR  ONE -DIMENSIONAL  TEMPERATURE  *  THP 

C  *  DISTRIBUTIONS  *  TMP 

f.  *  *  TMP 

C  *  *  *  *  **********  4  *******************  THP 

L  THP 

IMPLICIT  REAL*8  IA-H,0-Z)  THP 

INT£GCR*2  IX,  I  CODE .  IDP1X1,  HILND  TMP 

COMMON  /GfcNMAT/  X ( 1C66 ), Y( 1066 1,2 ( 1066 J ,UX{ 10661 ,UY( 1066) ,UZ ( 1066) TMP 

1  ,  TMPNO! 1066) ,  BCTMPI8),  THP 

2  ALFAl(lO) , ALFA2 ( 10),ALFA3(10) ,H BORT ( 10 ) , E ( 1 0, 9 , 1 0 ) , TMPC L ( 10, 10 ) , TMP 

3  NTMP(  1  0),IX<  144,27),  ICODEI  1066  ).  I0P1X1!  IV  ,19, 1D.MTLNDI  1066)  THP 
COMMON  /  GENL1  /  .TMP1NT,  EPSTMP,  AX,  BY,  CZ ,  THELLX , THELLY ,E LL2 ,TMP 

1  NfcL,  NGNP ,  NGLL’F ,  NMIL,  NTYLL,  LMTMP,  NELX,  NELY,  NELZ,  ICLASSTMP 

2  ,  1TYTU,  NELX31,  NELY31,  NELZ1  TMP 

COMMON  /  HEAD  /  HLD£ 1 0 ) , 1 CRO, 1WRT , I  PAGE , LINE  THP 

COMMON  /  TMPRTR/  TEMPI  ( 19)  ,  TfcMP2U9,19),  TEHP3I  19 , 19,  1 1 )  TMP 

200  PORMATI'O  THE  TEMPERATURE  DISTRIBUTION  IS  CONSTANT  AT*,  TMP 

1  E 16.7 ,  •  DEGREES  CENT.'  )  TMP 

201  FORMAT!  *C  THE  TEMPERATURE  DISTRIBUTION  VARIES  FROM*  ,  E15.7,  TMP 

1  *  TO*,  E15.7,  •  IN  THE  X-UIRCCTION  ONLY'  )  THP 

202  FORMAT! *0  THE  TEMPERATURE  DISTRIBUTION  VARIES  FROM*  ,  £15.7,  THP 

1  •  TO*,  E  IS  .7,  •  IN  THE  Y-D1RF.CT  ION  ONLY*  )  TMP 

203  FORMAT  CO  THE  TEMPERATURE  DISTRIBUTION  YARIES  FROM*  ,  £15. 7,  TMP 

1  •  TO*,  £15.7,  «  IN  THE  Z-DIRfCTION  ONLY*  )  TMP 

20A  FORMAT  t  *0  ft  MPERATUP.l  DISTRIBUTION  VARIES  IN  THE  X-Y  PLANE  ONLY*/  TMP 
1  '0  TEMPERATURE  BC1  -  *,  E15.7/  TMP 

1  •  TEMPERATURE  8C2  =  *,  E15.7/  THP 

1  •  TEMPERATURE  BC3  =  *,  E15.7/  THP 

1  •  TEMPERATURE  BLA  =  *,  E15.7)  THP 

205  FORMAT! *0  TEMPERATURE  DISTRIBUTION  VARIES  IN  THE  X-Z  PLANE  ONLY*/  THP 

1  *0  TfcNPIRATURE  BC1  =  *,  El  5.7/  TMP 

1  •  TEMPERATURE  BC2  =  *,  E15.7/  THP 

1  *  TEMPERATURE  BC5  =  ',  E1S.7/  TMP 

1  •  TEMPERATURE  DC6  =  *,  E15.7)  TMP 

206  F0RMAT!*0  TEMPERATURE  DISTRIBUTION  VARIES  IN  THE  Y-Z  PLANE  ONLY*/  TMP 

1  •  G  TEMPERATURE  BC1  =  *,  £15.7/  TMP 

1  •  TEMPERATURE  BC3  =  *,  £15.7/  TMP 

1  •  TEMPERATURE  BC5  =  *,  £15.7/  TMP 

1  •  TEMPERATURE  eC7  =  ',  E 15 -71  TMP 

207  FORMAT  ( *  0  3-0  TEMPERATURE  DISTRIBUTION  SUBROUTINE  NOT  COMPLETE*)  TMP 

IF  tITYTD  .TIE.  0  )  DO  TO  10  TMP 

WRITE! IWRT , 200 )  BCTHP(l)  TMP 

DU  2C  1=1, NGNP  TMP 

20  TMPND(I)  =  PC THP! 1 )  TMP 

GU  TO  9  TMP 

10  NICHTX  =  NELX31  -  1  TMP 

NICMTY  =  NELY31  -  1  TMP 


10 
20 
30 
AO 
50 
60 
70 
80 
90 
100 
110 
120 
130 
1  AO 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2A0 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3A0 
350 
360 
370 
380 
390 
AGO 
A10 
A20 
A30 
AAO 
A50 
A60 
A70 
A8C 
A90 
500 
510 
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GO  TO  (1,  2,  3,  4,  5,  6,  7).  ITYTO 

1  TMPINC  =  ( BCTMP ( 2  )  -  BCTMP  ( 1 J  »  /  NICMTX 
KRITEUMRT,20n  BCTMP(X),  BCTMP121 

DO  21  1=1, NICMTX 

21  TEMPl(I)  =  BCTMP(l)  +  TMP1NC*( 1-1 } 

T  BMP  1 ( NELX3 11  =  BCTMP12) 

DO  31  I=1,NLLX31 
DO  31  J= 1 , NELY31 
DO  31  K=1,NLLZ1 

31  TEMP 3(1, J,K)  =  TEMPI! 1 ) 

GO  TO  8 

2  TMP1NC  =  (BCTMPI3)  -  BC  MP(1)  )  /  N1CMTY 
WRITE  ( 1WRT  ,202)  BUMP(l),  BCTMP(3) 

DO  22  J=1 ,N1CMTY 

22  TEMPl(J)  =  BCTMP(l)  +  1MP1NC*(J-1) 

7  EMP1  ( NELY31 )  =  BCTMPC,) 

00  32  1  =  1  ,N(.LX3 1 
•DO  32  J=1*NELY31 
DO  32  K=1,NILZ1 

32  T  EMP3( I , J, K )  =  TEMPI ( J 1 
GO  TO  8 

3  TMP1NC  =  ( BCTMP ( 5 )  -  BCTMP ( 1 )  )  /  NELZ 
WRITE! 1WRT ,203 )  BCTMP(l),  6CTMP(5) 

DO  23  K=1«NLLZ 

23  TEMPHK1  =  PCTMPll)  +  TMP1NC*(K-1) 

T  FMPHNELZ  +  1 J  =  BCTMP  (  5 ) 

DO  33  1 = 1 » NLLX3 1 
DO  33  J= 1.NELY3 1 
00  33  K= 1  *  NLLZ1 

33  TEMP3!1,J,K1  =  TEMPKK1 
GO  TO  8 

4  WR1TE1IWRT ,20 A )  BCTMP ( 1 ) ,  BCTMP! 2 ) ,  BCTHP!3),  BCTMP (A ) 

BC1  =BCTHP(1) 

BC2  =BCTMP<2) 

BC3  =BCT  MP ! 3) 

BC4  =BCT MP  ( A 1 

CAU  TWUD!  THELIX,  THELLY,  NELX31,  NELY31 *  BC1,  BC2,  BC3,  BC4) 
DO  34  I  =  1  ,N!  LX3 1 
DO  34  J= 1 ,NEL  T3 1 
DO  34  K= ltNELZ 1 

34  UMP3!I,J,K)  =  TEMP2!  I  , J) 

GO  TO  8 

5  WR 1 T E ( IWRT » 205 )  BCTMP!1),  BCTMP(2),  3CTMP(5>,  BCTMP(6) 

BC1  =BCT  MP ( 1 ) 

BC2  =BCTMP(2) 

BC3  =BCTMP ( 5) 

BC4  =BCTMP (6) 

CALL  TwOD!  THtLLX,  ELLZ,  NELX31,  NELZ 1  ,  BC1,  BC2,  BC3,  0C4) 
DO  35  !=1,NELX31 
DO  35  J= 1 ,NFLY3 1 
DO  35  K=1»NELZ1 


THP  520 
TMP  530 
TMP  540 
TMP  550 
TMP  560 
TMP  570 
TMP  580 
THP  590 
TMP  600 
THP  610 
TMP  620 
TMP  630 
TMP  640 
TMP  650 
TMP  660 
TMP  670 
TMP  680 
TMP  690 
TMP  700 
THP  710 
TMP  720 
TMP  730 
TMP  740 
TMP  750 
TMP  760 
THP  770 
TMP  780 
TMP  790 
TMP  800 
TMP  810 
TMP  820 
TMP  830 
TMP  840 
TMP  850 
TMP  860 
TMP  870 
TMP  880 
TMP  090 
TMP  900 
TMP  910 
TMP  920 
TMP  930 
TMP  940 
TMP  950 
TMP  960 
TMP  970 
TMP  980 
TMP  990 
TMP  1000 
TMP  1010 
TMP  1020 


35  TFMP3(  1  ♦  J*K )  -  75MP2{'..K» 

GO  TO  8 

6  WRITEt IWRT »  206 )  BCTMP<;»,  BCTHP(3),  BCTHP<5),  BCTMPUJ 
BC1  =BC IMP ( 1) 

8C2  =BCTMP( 3) 

BC3  =BCTMP ( 5) 

BCA  =BCT  HP ( 7! 

CALL  TWOOI  THELLY,  ELLZ,  NELY31,  NELZ1  ,  BC1,  BC2,  BC3,  BCA) 
00  36  I=I,NELX31 
DO  36  J=l,NfclY31 
00  36  K=1,NELZ1 

36  T  FMP3I 1 »  J,K )  =  TEMP2(J,K) 

CO  TO  8 

7  HR ITE ( 1WRT 1 207 ) 

8  DO  AO  I=l,NfcLX31 
DO  AO  J= If NLLY31 
DO  AO  K=  1  «N(.LZI 

*1  F  ( 1DPIXM  I  tJ  »K  )  .tO.  OJ  GO  TO  AO 
THPNOJ IDPIX1  ( ltJ«K)  )  =  TEMP3< 1 ,J,K J . 

AO  CONTINUE 

9  RETURN 
END 


THP  1030 
TMP  10A0 
TMP  1050 
TMP  1060 
TMP  1070 
TMP  1080 
TMP  1090 
THP  1100 
TMP  1110 
TMP  1120 
TMP  1130 
TMP  11A0 
THP  1150 
TMP  1160 
TMP  1170 
TMP  11  BO 
TMP  1190 
TMP  1200 
THP  1210 
THP  1220 
TMP  1230 
TMP  12A0 


/ 


/ 
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SUBROUTINE  TWOC(Hl,  H2,  NPTSl,  NPTS2,  BC1»  BC2,  BC3,  BC4J  THP 

C  THP 

C  **********************************  THP 

C  *  *  THP 

C  *  SUBROUTINE  THOO  SOLVES  FOR  TWO-DIMENSIONAL  TEMPERA IURE  *  THP 

C  *  OISTRUBUTIONS  ,  *  THP 

C  *  *  THP 

C  **********************************  ^  p 

c  THP 

IMPLICIT  REALMS  <A-H,0-Z)  THP 

COMMON  /  GENLi  /  TMPINT,  EPSTMP,  AX»  BY,  CZ ,  THELLX, THELLY,ELLZ»THP 

1  NEL,  NGNP ,  NGLOF,  NMTL ,  NTYEL,  LHTHP,  NELX,  NELY,  NELZ,  ICLfSSTHP 

2  ,  ITYTD,  NELX31,  NELY31,  NtLZl  THP 

COMMON  /  HEAD  /  HED! 10) ,ICRD, IWRT , I  PAGE , LINE  THP 

COMMON  /  TMPRTR/  TEMPI ( 191 i  TfcMP2{ 19, 191 ,  TEMP3! 19,19,11)  THP 

1000  FORHAT(  »0  TEMPERATURE  DISTRIBUTION  CONVERGED  TO*,  E15.7,  THP 

1  •  IN*,  15,  '  ITERATIONS*  )  THP 

1001  FORMAT!  *0  TEMPERATURE  DISTRIBUTION  010  NOT  CONVERGE  TO',E15.7,  THP 

1  •  IN*,  15,  •  ITERATIONS*  I  THP 

NICHT1  =  NPTSl  -  1  THP 

N1CMT2  =  NPTS2  -  1  THP 

DO  10  1=1, NPTSl  THP 

DO  10  J=1,NPTS2  THP 

10  TEMP2I I, J)  =  TMPINT  THP 

TMPINC  =  (BC2  -  BCD  /  NICMT1  THP 

00  11  1=2, NICMT1  ’  THP 

11  TEMP2! 1,1)  =  BCl  ♦  TMPINCMI— 1 )  THP 

TMPINC  =  ( BC4  -  BC3)  /  NICHT1  THP 

DO  12  1= 1»NICMT 1  THP 

12  T  EMP2! I ,NPTS2 )  =  BC3  4  TMPINC*(I-1)  THP 

TMPINC  =  (BC3  -  BCD  /  NICMT2  THP 

DO  13  J=l. NICMT 2  THP 

13  TFMP2! 1, J I  =  BCl  4  THP INC* ( J— 1 }  THP 

TMPINC  =  <BC4  -  BC21  /  N1CHTZ  THP 

DO  14  J=1,NICMT2  THP 

14  TEMP2(NPTS1 » J )  =  BC2  4  TMPINCMJ-1)  THP 

TEHP2(NPTS1,NPTS2»  =  BC4  THP 

NOCVT  =  O  THP 

KOUNT=  0  THP 

H ISO  =  H1*H1  •  THP 

H2S0  =  H2*H2  THP 

DEM  =  2. DO  *  (1.DP/H1S0  ♦  1.D0/H2SQJ  THP 

1  IF!  KOUNT  .GT.  LMTMP)  GO  TO  2  THP 

ERRMAX  =  O.DO  THP 

KOUNT  =  KOUNT  4  1  THP 

DO  20  I=2,NICMT1  THP 

DO  20  J=2,NICMT2  THP 

OLDTMP  =  TEMP2 ( I , J )  THP 

TEMP2! 1, J)  =  l(TEMP2(I-l,J)  4  TEMP2! I4l , J J )  /  HI  SO  THP 

1  4  ( T LMP2 ( I , J-l \  4  TEMP2!I,j4il  )  /  H2S0  )  /  DEM  THP 

ERR  =  DA BS (  OLDTMP  -  TLMP2!I,J)  )  THP 
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I F (  ERR  -uT.  ERRMAX  )  ERRMAX  =  ERR 

THP 

520 

CONTINUE 

THP 

530 

IK  ERRMAX  .GT. 

EPSTHP  J 

GO  TO  1 

THP 

540 

HR ! TE( IHRT ,1000) 

ERRMAX, 

K0UN1 

THP 

550 

RETURN 

THP 

560 

WRITtUWRT,  1001) 

EPSTHP, 

KOUNT 

THP 

570 

NOCVT  =  1 

THP 

580 

RETURN 

THP 

590 

END 

THP 

600 
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SUBROUTINE  MODE 


i 


************************** 


HOP 
HOP 

******  HOP 

*  HOP 

SUBROUTINE  HUOF  OOES  NOTHING  —  THIS  SUBROUTINE  CAN  BE  USED  TO  *  HOP 
HUDIFY  ANY  INFORMATION  THAT  HAS  BEEN  GENERATEO  *  MOP 

*  HOP 

****************?***»**********•*  hop 

HOP 

IMPLICIT  R£AL*8  <A-H,0-ZI  MOP 

INTtGER*2  IX,  I  CODE,  IOPIX1,  MTLND  MOP 

COMMON  /GENHAT/  X ( 1066 ) , Y ( 1066 ) ,Z { 1066) ,UXI 1066  > ,UY( 1066) ,UZ«1066)H0P 

1  s  TMPNDt 1066) ,  BCTHP (8 ) ,  HOP 

2  ALFAH10) , ALF A2 ! 10), ALF A3! 10 ) .PIBORT ! 10) ,E (10,9,10 )  ,TMPEL( 10, 10), MOP 

3  NTMP(10),IX<144»27)» 1C00E ( 10 66 ),1 OP 1X1(19, 19, 11) »MTLNDl 1066)  HOP 

COHMUN  /  GFNL1  /  TMPINT,  EPSTHP,  AX,  BY,  CZ,  THELLX,THELLY ,ELLZ >M0P 

1  NEL,  NGNP,  NGLUF,  NMTL,  NTYEL,  LMTHP,  NELX,  NELY,  NELZ,  ICLASSHOP 
i  ,  IIYTU,  NELX31,  NELY31,  NELZ1  HOP 

COMMON  /  HEAU  /  HED(10),1CRD, IWRT ,1  PAGE, LINE  HOP 

WRITE! IHRT, 200)  HOP 

200  FORMAT!//  *0  DATA  GENERATION  STEP  HAS  NOT  BEEN  MODIFIED*  )  MOP 

RETURN  HOP 

END  HOP 
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APPENDIX  D 


Hole  in  Rectangular  Plate  Mesh  Generator 
A.  Introduction 

This  mesh  generator  will  yield  element,  nodal,  and  material  data 
necessary  to  idealize  a  laminated  composite  pierced  with  a  hole  and 
subjected  to  axial  and  thermal  loads.  The  shape  of  the  hole  can  be 
circular,  square  or  diamond.  Loads  are  applied  as  a  result  of  a  uniform 
axial  displacement  in  the  x-direction  at  x  =  ±a.  The  thermal  effects 
are  restricted  to  a  constant  temperature  change.  The  mesh  is  restricted 
to  the  shape  shown  in  Figure  D-l  where  a,  b,  t,  c,  e  and  R  can  be  varied. 
The  number  of  elements  through-the-thickness  is  also  a  variable. 
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B. 


Input  Data 


1.  Heading  card  (10A8) 

Columns  1-80  information  to  be  printed  with  output 

2.  Output  unit  card  (15)  one  card 

Columns  1-5  unit  number  for  passing  data  to  next  job  step 

3.  Control  and  problem  parameter  card  (III),  2F10.0)  one  card 
Columns  1-10  type  of  thermal-elastic  problem 

11-20  initial  temperature 
21-30  final  temperatures 

4 .  Plate  and  mesh  dimensions  cards  two  cards 
First  card  (3  G10.0,  15) 

Columns  1-10  a-dimension,  inches 
11-20  b-dimension,  inches 
21-30  t/2-dimension,  inches 

30-35  number  of  elements  through  the  half  thickness 
Second  card  (3G10.1) 

Columns  1-10  c-dimension,  inches 
11-20  e-dimension,  inches 
21-30  R-dimension,  inches 

5.  Load  and  hole  parameters  (315,  F10.0)  one  card 

Columns  1-5  ’O'  if  hole  open,  '1'  if  hole  filled 

6-10  '1'  if  circular  hole 
'2'  if  square  hole 
'3'  if  diamond  hole 
11-15  blank 

16-26  magnitude  of  displacement,  inches 

6.  Material  change  data  cards  (1615) 

Columns  1-5  number  of  materials 

5-10  number  of  material  changes 
11-15  material  number 

16-20  element  number  at  which  the  material  changed 

(Use  as  many  sets  of  material  number  and  element 
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number  as  required  to  describe  at  which  element 
a  material  is  changed.  The  elements  are  numbered, 
on  the  plate,  as  shown  in  Figure  D-l.) 

Material  data  cards  two  cards 

First  card  (215,  F10.2,  3F10.8)  one  for  each  material 
Columns  1-5  material  number  (in  sequential  order) 

6-10  number  of  material  cards 
('1'  for  class  1,  2  or  3) 

11-20  fiber  orientation  in  degrees 
21-30  thermal  expansion  coefficient, 

31-40  thermal  expansion  coefficient,  o. 

41-50  thermal  expansion  coefficient, 

Subsequent  cards  (F5.0,  3F10.0,  3F5.2,  3F10.0)  (One  card  for 
problem  class  1,  2  or  3.  And  for  problem  class  4,  one  card  for 
each  temperature  for  which  material  properties  are  specified.) 
Columns  1-5  temperature  for  material  properties 

(can  be  left  blank  for  class  1  and  2  problems) 

6-15  modulus  of  elasticity,  F^,  KSI 
16-25  modulus  of  elasticity,  E^,  KSI 
26-35  modulus  of  elasticity,  KSI  , 

36-40  Poisson's  ratio, 

41-45  Poisson's  ratio, 

46-50  Poisson's  ratio, 

51-60  shear  modulus,  G^,  KSI 
61-70  shear  modulus,  G^_,  KSI 
71-80  shear  modulus,  KSI 

Element  change  data  cards  (1615) 

Columns  1-5  number  of  unique  elements 
6-10  number  of  element  changes 
11-15  element  type  number 

16-20  element  number  at  which  the  element  type  changes 
(Use  as  many  sets  of  element  type  and  element 
number  as  required  to  describe  at  which  clement 
number  an  clement  type  is  changed.) 
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MAIN  PROGRAM  STEP  IB 

MGH 

10 

HGH 

20 

************  ********** 

********** 

*  * 

HGH 

30 

* 

MGH 

AO 

*  THIS  MESH  GENERATOR  IDEALIZES  A  RECTANGULAR  LAMINATED  PLATE 

MGH 

50 

*  WITH  A  HOLE,  LOADED  IN  UNIFORM  EXTENSION 

IN  THE  X-U1RECTI0N 

MGH 

60 

♦ 

MGH 

70 

******  **************** 

********** 

*  * 

HGH 

80 

MGH 

90 

IMPLICIT  REAL*8  (A-H,"-Z) 

MGH 

100 

INTEGERS  IX,  ICODE,  IDP1XI,  MI  END 

MGH 

110 

COMMON  /GiMMAT/  X ( 1015 ) , Y« 1015 J ,Z ( 1015 ) ,UX{ 1015 ) ,UY( 1015 » ,UZ t 1015 IMGH 

120 

1  ,  THPNDU01SJ,  8CTMP , 

, 

MGH 

130 

2  ALFAlt  1C)  ,ALEA2(  1 0 )  ,  ALFA3  (10 )  ,FIBORT(10 ) 

,E(10,9,10) ,TMPEL(10, 

10) 

,MGH 

1  AO 

3  HTMP(10),1X!1AA,27) , ICODE ( 1015),1DP1X1 (19,19,11 ),MTLND{ 1015) 

MGH 

150 

COMMON  /  GENL1  /  TMPINT.  EPS  IMP,  AX,  BY 

,  CZ,  THELLX.THELLY.ELLZ 

,  MGK 

160 

1  NEL,  NGNP,  NGLOE,  MMTL ,.  NTYEL,  LHTMP, 

NELX,  NELY,  NELZ,  1CLASSMGH 

170 

2  ,  ITYTD,  NELX31,  NELY31,  NELZ1 

HGH 

180 

COMMON  /  HEAD  /  HELM  ) 0) , 1CR0, 1WRT , I PAGE , 

LINE 

MGH 

190 

1030  FORMAT!  1615) 

MGH 

200 

1C01  FORMAT  1215,  F10.2,  3E10.8) 

MGH 

210 

1002  FORMAT ( F5.0 ,  3F10.0,  3F5.2,  3F10.0) 

MGH 

220 

1003  FORMAT!  IA,  IA,  12,  6F10.O,  F10.2) 

HGH 

230 

107A  FORMAT!  10 AH ) 

MGH 

2A0 

1005  FORMAT!  A15.  F10.2) 

1011  FORMA  1(110,  2F10.5) 

MGH 

250 

MGH 

260 

1 CRU  =  5 

MGH 

270 

1  PAGE  =  1 

MGH 

280 

I WRT  =  6 

MGH 

290 

RE  AD!  5,1  COA  )  HE!) 

HGH 

300 

READ! 5, 1000)  NTUT 

MGH 

310 

RE  All!  5, 1  Cl  1 )  1CLASS,  AHBTMP,  BCTMP 

MGH 

320 

MGH 

330 

GENERATE  MESH  ANO  BOUNOAkY  CONDITIONS 

MGH 

3A0 

HGH 

350 

CALL  DAT  GEM 

MGH 

360 

DO  20  1  =  1  »NGNP 

MGH 

370 

20  TMPND(l)  =  RCTMP 

MGH 

380 

CALL  MODE 

MGH 

390 

HGH 

AOO 

WRITE  MESH  DATA  ON  UNIT  NTUT 

MGH 

A10 

MGH 

A20 

WRITEINTUT , 100A )  HEO 

HGH 

A30 

WR 11 E (NTUT , 1005 )  NGNP,  NMTL ,  NEL,  NTYEL, 

AMBTMP 

MGH 

AAO 

00  10  1M7L=1,NMIL 

MGH 

A50 

WR 1TE (NI UT , 1001 )  IMTL,  NTMP(IMTL),  F IBORT! IMTL )  ,  ALFAl(IHTL), 

MGH 

A60 

1  ALFA2UMTL),  ALFA3(IMTL) 

MGH 

A70 

NTMP1  =  NIHP(IHTL) 

MGH 

AOO 

DO  )P  1TMP=1,NTMP1 

MGH 

A90 

10  WR 1 1 6 ( NT  UT , 1002 )  TMPEL ( IMTL, 1TMP  ),  (E ( IMTL, J, 1 TMP ) , J  =  l, 9 ) 

MGH 

500 

DO  30  1NEL= 1 iNE  L 

MGH 

510 

30  WRITE(MTUTtlOOO) 

1NEL,  ( lXt INfcL,J) ,J=1, 

27) 

HGH 

520 

DU  40  M=1,NGNP 

KGH 

530 

40  WRITE (NIUTt 1003) 

H,  MTLNU(H),  IC00E1H), 

XCM),  Y(H)»  Z (K) , 

HGH 

540 

1  '  UX(H),  UY(M), 

UZ ( M  ) ,  THPND(M) 

KGH 

550 

sue 

HGH 

560 

fcNP 

HGH 

570 
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SUP. ROUTINE  OATGEN 


C 

C 

0 

C 

r, 

t 

c 

c 


DAH 
OAH 

I***********,*********************  OAH 

*  *  OAH 

*  SUBROUT INr  OATGEN  GENERATES  THf  MESH,  NUMBERS  THE  NODES  AND  *  DAH 

*  ELEMENTS,  AND  SPECIFIES  BOUNDARY  CONDITION  CODES  FOR  EACH  NODE  *  DAH 

*  *  DAH 
**********************************  DAH 

DAH 

IHPLICIT  REAL*B  (A-H,0-Z)  DAH 

INTEGERS  IX,  ICOUE,  IDP1X1,  MTLND  DAH 

COMMON  /GENMAT/  X(1C15),Y( 1015  ),Z I  1015), UX( 1015), UY< 1015), UZ 11015) DAH 

1  ,  TMPNDI1C15),  BCTMP ,  DAH 

2  ALFAl(lO) ,ALFA2(10),ALFA3I10),HBURT110),E(10,9,10),TMPEL(10,10),DAH 

3  NTMP(IO)  ,1X(  144, 27)  ,  1C00E  ( 1  0 15)  ,  IDP1X1  (  19,19,1  1)  ,MTLNDU015)  DAH 
COMMON  /  GFNL1  /  TMP1NI,  EPSTMP,  AX,  BY,  CZ ,  THELLX.THELLY ,ELLZ,DAH 

1  NEC,  NGHP ,  NGLOF,  NMTL ,  MTYLL,  LMTMP,  NELX,  NELY,  NELZ,  ICLASSDAH 
Z  ,  ITYTU,  NELX 3 1 ,  Nt  LY31 ,  NELZ1  .  DAH 

COHMON  /  HEAD  /  HEDI  1  0)  ,  I  CRD  ,IVYRT  ,  1PAGE.  LI  NE  DAH 

OIMENSIUN  DAH 

1  IXFLCHI195I,  IXMLCH ( 195 ) ,  1MATLI 145 ) ,  1TYELU45)  DAH 

DIMENSION  IXDT1I24),  IXDT2I24),  IXDT3124),  IXDT4124),  1XDT5124)  DAH 


DIMENSION  1X0T6124),  IXOT7124),  1X0T8124),  IXDT9124),  1XDT10I24)  DAH 
DIMENSION  .JT11I24) ,1XDT12(24), IXDT 13(24) ,1 XDT 14(24) ,1X0710(24 )  DAH 
DIMENSION  1X0T16I24) , 1XUT 17 ( 24 ) , 1 X0T18 l 24 ) , I XDT19 ( 24 ) , I XDT20I 24 )  DAH 


DIMENSION  IXDTP1I24),  IX0TP2I24),  IXOTP3I24),  IXDTP4I24)  OAH 
DIMENSION  IPLNP 1(10),  1PLNP2I10),  IPLNP3(10),  IPLNP4I10)  DAH 
DIMENSION  10X1(10),  10X2110),  10X3110),  10X4(10)  DAH 
DIMENSION  XLDS014)  DAH 
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290 


DATA  IXOTl/1,  14,  10,  22,  137,  150,  154,  158,  2,  3,  23,  24,  138,  DAH  300 


1  139 

,  159, 

160 

,  4, 

15,  19 

* 

25,  1 

40, 

151, 

155, 

161  / 

DAH 

310 

DATA 

IX0T2/ 

7, 

6,  5, 

'•»  143* 

142, 

141 

,  140 

.  8, 

9,  15 

,  19 

,  144, 

DAH 

320 

1  145 

,  151, 

155 

,  10, 

16*  20* 

25, 

146, 

152, 

156, 

161 

/ 

OAH 

330 

DATA 

IXDT3/ 

1C, 

16, 

20,  25 

, 

146, 

152, 

156, 

161, 

11, 

12, 

26, 

27, 

DAH 

340 

1  147 

,  148, 

162 

,  163 

.  13, 

17 

,  21, 

28, 

149, 

153, 

157, 

164 

/ 

DAH 

350 

DATA 

IX0T4/ 

22, 

29, 

32,  35 

, 

15P , 

165, 

166, 

171, 

23, 

24, 

36, 

37, 

DAH 

360 

1  159 

,  160, 

172 

,  173 

,  25, 

30 

,  33, 

38, 

161, 

166, 

169, 

174 

/ 

DAH 

370 

DATA 

1X015/ 

25, 

30, 

33,  38 

, 

1  6  1 , 

166, 

169, 

174, 

26, 

27, 

39, 

40, 

DAH 

380 

1  162 

,  163, 

175 

,  1  it 

,  20, 

31 

,  34, 

41, 

164, 

167, 

17P, 

177 

/ 

DAH 

390 

DATA 

IX0T6/ 

56, 

52, 

40,  42 

, 

192, 

188, 

184, 

178, 

57, 

58, 

A3, 

44, 

DAH 

400 

1  193 

,  194, 

179 

,  100 

,  59, 

53 

,  49, 

45, 

195, 

189, 

185, 

181 

/ 

DAH 

410 

DATA 

I XDT 7/ 

45, 

46, 

47,  7, 

1 

01,  182, 

183, 

143, 

49,  53,  e 

,  9, 

DAH 

420 

1  105 

,  1  89  , 

14<* 

,  145 

,  59, 

54 

,  50, 

10, 

195, 

190, 

186, 

146 

/ 

DAH 

430 

DATA 

1X018/ 

59, 

54, 

50,  10 

, 

195, 

190, 

186, 

146, 

60, 

61 , 

11, 

12, 

DAH 

440 

1  196 

,  197, 

147 

,  148 

,  62 , 

55 

.  51, 

13, 

198, 

191, 

187, 

149 

/ 

OAH 

450 

DATA 

IXDT9/ 

69, 

66, 

63,  56 

, 

205, 

202, 

199, 

192, 

70, 

71, 

57, 

58, 

DAH 

460 

1  206 

,  207, 

193 

,  194 

,  72, 

67 

*  64, 

59, 

208, 

203, 

200, 

195 

/ 

DAH 

470 

DATAIXDI 10/ 

72, 

67, 

64,  59 

, 

20H, 

203, 

200, 

195, 

73, 

74, 

60, 

61, 

DAH 

480 

1  209 

,  210, 

196 

,  197 

,  75, 

68 

,  65, 

62, 

211, 

204, 

201, 

198 

/ 

OAH 

490 

DATA 

I  XDT 11/  96 

,  91, 

88,  78, 

232, 

227 

,  224 

,  214 

,  95, 

94, 

77, 

76, 

DAH 

500 

1  231 

,  230, 

213 

,  212 

*  * 

52 

,  48, 

42, 

192, 

188, 

184, 

178 

/ 

OAH 

510 
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1,  91, 

88, 

83, 

82, 

DAH 

520 

216, 

217 

/ 

DAH 

530 

>,  98, 

97, 

86, 

85, 

OAH 

540 

225, 

220 

/ 

OAH 

550 

232, 

105, 

104 

,  95, 

DAH 

560 

202, 

199, 

192 

/ 

DAH 

570 

235, 

108, 

107 

,  98, 

DAH 

580 

1  91,  244,  243,  234,  233,  106,  102,  100,  96,  242,  238,  236,  232  /  DAH 

DATA  1X0T16/  112,  115,  118,  123,  248,  251,  254,  259,  111,  110,  DAH 
1  122,  121,  247,  246,  258,  257,  1,  14,  18,  22,  137,  150,  154,  158/DAH 

DATA  IXDT17/  84,  116,  119,  123,  220,  252,  255,  259,  83,  82,  118,  DAH 

1  115,  21',  218,  254,  251,  81,  114,  113,  112,  217,  230,  249,  248/  OAH 

OATA  IXDT! 8/  87,  li-*,  120,  126,  223,  253,  256,  262,  86,  85,  125,  DAH 

1  124,  22;.1,  221,  261,  260,  84,  116,  119,  123,  220,  252,  255,  259  /DAH 

DATA  IXDT i9/  123,  127,  129,  133,  259,  263,  265,  269,  122,  121, 132, DAH 
1  131,  258,  257,  268,  267,  22,  29,  32,  35,  158,  165,  168,  171  /  DAH 

DATA  IXDT20/  126,  128,  130,  136,  262,  264,  266,  272,  125,  124, 135, DAH 
1  134,  261,  260,  271,  270,  123,  127,  129,  133,  269,  263,  265,  269/DAH 

DATA  1XDTP1  /  0,0,0,1,0,0,0,137,0,0,2,3,0,0,136,139,  DAH 

1  7,6,5,4,143,142,141,140/  OAH 

DATA  IXUTP2  /  42,0,0,0,178,0,0,0,43,44,0,0,179,180,0,0,  DAH 

1  45,46,47,7,181,182,183,143  /  DAH 

OATA  IX0TP3  /  78, 79, 80, 81, 214, 215,2 16, 217, 77, 76, 0,0, 213, 212, 0,0,  DAH 
1  42,0,0,0,178,0,0,0  /  DAH 

DATA  IXDTP4  /  81,114,113,112,217,250,249,248,0,0,111,110,0,0,247,  DAH 
1  246,0,0,0,1,0,0,0,137  /  DAH 

OATA  I 0X1  /  1,2,3,5,6,7,9,10,13,14  /  DAH 

OATA  »0X2  /  2,3,4,6,7,8,11,12,15,16  /  DAH 

DATA  10X3  /  11,12,16,16,18,19,20,22,23,24  /  DAH 

OATA  1DX4  /  9,10,13,14,17,18,19,21,22,23  /  OAH 

OATA  IPLNP1  /  3,4,5,12,13,14,7,6,16,15  /  DAH 

OATA  IPLNP2  /  1,2,3,10,11,12,7,6,16,15  /  DAH 

OATA  1PLNP3  /  9,8,18,17,1,2,3,10,11,12  /  DAH 

DATA  IPLNP4  /  9,8,10,17,3,4,5,12,13,14  /  DAH 

DATA  XLDSO  /  l.DO,  3.00,  3.D0,  1.00  /  OAH 

100  FORMAT  <16151  DAH 

102  FORMAT (  3G 10. 0,15)  DAH 

103  FORMAT ( 3G10 . 1 )  DAH 

104  FORMAT !  315  «  G10.0)  DAH 

202  FORMAT! 'OLENGTH  OF  STRIP*  ,T50,G24.7  /  DAH 


1  '0W10TH  OF  STRIP* 

2  'CTHICKNESS  OF  STRIP* 

3  ‘CNUMBER  OF  ELEMENTS  THICK* 

4  ‘OLENGTH  OF  INSERT' 

5  'OWIDTH  OF  INSERT* 

6  'OMAXIMUM  WIDTH  OF  HOLE* 

293  FORMAT! 'CUNIFORM  DISPLACEMENT  IN  INCHES  OF  » 


»T50 »G24 .7  / 
,T50,G24.7  / 
»T50 »G24.7  / 
,T50 ,G24.7  / 
,T50,G24.7  / 
,T50  ,G24.7  / 
,T50 ,G24.7  ) 

,  T 50,  G24.7) 


204  FURMAT ( ‘CONIFORM  LOAD  IN  KIPS  UF  •  ,T60,  G24.7) 

2n6  FORMAT !'CHOLE  IS  FILLED* I 

206  FORMAT I  •  CMMEKIAL  TYPE  AND  MATERIAL  CHANGES'  / 

1  T 10,  'MATERIAL  TYPl  CHANGE  AT  ELEMENT*  I 
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207  FORMAT ( *  OCIRCULAR  HOLE*  ) 

208  FORMAT !*0SQUARE  HOLE*  ) 

209  FORMAT ( *001 AMONO  HOLE*  ) 

307  FORMAT ( ' Cf  LF.MENT  TYPE  AND  ELEMENT  CHANGES* 
1  T10,  'ELEMtNT  TYPE 

306  FORMAT ( 1 0X »  12,  22X,  14) 

100X  FORMAT (215,  F10.2,  3F10.8) 

1002  FORMAT (F5.0,  3F10.0,  3F5.2,  3F10.0) 


CHANGE  AT  ELEMENT*  ) 


READ( 1CRD, 102 ) 
READ! 1CRD, 103 ) 
READ( ICRD, 104 ) 
CALL  TITLE 


XLNTH2 

YLNTH2 

ZLNTH2 

XINST2 

Y1NST2 

•RADHL2 


2. DO 
2. DO 
2. DO 
2.  DO 
2. DO 
2. DO 


XLNTH,  YLNTH,  ZLNTH,  NELZ 
XlNSRT ,  Y1NSRT ,  RAOHL 
IFLKL,  ITYHL ,  LDMD,  DSPLD 

*  XLNTH 

*  YLNTH 

*  ZLNTH 

*  XlNSRT 

*  Y1NSRT 

*  RAOHL 

XLNTH2, YLN7H2  ,ZLNTH2*NELZ*  X1NS72,  YINST2, 
WRITE! IWRT ,205 ) 

),  ITYHL 


GO  TO  95 
DSPLD 

DSPLD 

NMTL ,  NMLCH,  1 IMATL ( J ) , I XM LCHt J ) » J= 1 *NMLCH 1 


WRITE! IWRT , 202 ) 

IFIIFLHL  .ED.  1) 

GO  TO  191,  92,  93 

91  WRITE! IWRT, 207) 

GO  TO  94 

92  WRITE II WRT, 200 ) 

GO  TO  94 

93  WRITE! IWRT, 209) 

94  IFUOMD  .EQ.  1) 

WRITE!1WRT,203) 

GO  TO  96 

95  WR IT E 1 IWRT ,204 ) 

96  CONTINUE 
READ! ICRD, ICO) 

DO  71  IMTL=1»NMTL 

READ! ICRD  ,1001)  MTLN,  NTMPIIMTL),  FIBORT! IMTL  )  ,  ALFA1I IMTL 
1  ALFA2! IMTL i ,  ALFA3! IMTL ) 

NTMP1  =  NTMPIIMTL) 

DO  71  ITMP=1,NTMP1 

71  RE  AO  (ICRD  ,1002)  TMPLL !  I MTL-,  I TMP ) ,  (E t IMTL, J, I7MP ) , J=1 ,9 ) 
READ! ICRD, 100 )  NTYEL ,  NELCH,  1  ITYEL ( J ), IXELCH! J ) ,J= 1 »NELCH) 
CALL  TITLE 
WRITE! IWRT ,206) 

WRITE! IWRT ,30b)  (IMATL(J),  IXMLCH1J),  J=l, NMLCH) 

I  =  0 

97  CALL  TITLE 
WRITE! IWRT ,307) 

98  I  =  in 

I F ( I  .GT.  NELCH) 

WR IT  E! IWRT ,306 ) 

LINE  =  LINE  ♦ 

I F (LINE  .LT.  48) 

GO  TO  97 


GO  TO  99 
ITYEL! 1), 

1 

GO  TO  98 


IXELCH! I ) 


DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

DAH 

RADHL2DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
■  DAH 
DAH 
DAH 
DAH 
DAH- 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
OAH 
DAH 
OAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 
DAH 


1030 

1040 

1050 

1060 

1070 

1060 

1090 

11C0 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 
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99  CONTINUE 

ZELTHS  =  ZLNTH/NELZ 
NGNP  =  136*(NELZ«-1 ) 

NEL  =20*NELZ 
NELZ1  =  NELZ  ♦  1 
DO  46  J=l,24 
IX(1,J)  =  IXDTl(J) 

IX (2 , J 1  =  IXOT2(J) 

IX (  3 , J  )  =  IXDT3( J  ) 

IX(4,J)  =  IXDT4CJ) 

IX(5, J)  =  IXDT5( J  ) 

I  X  ( 6 ,  J  1  c  IXOTbtJJ 
IX(7,J)  =  XXDT7 ( J ) 

1X0, J»  =  IXDT8(J) 

I X  (9 ,  J  )  =  1XDT9U) 

IXUO.JJ  =  1XDT10  ( J ) 

IX(ll.J)  =  IXOTUUJ 
*1X02, J)  =  1X0T 12  ( J ) 

1X03, J)  *  1XDT131J) 

1X04, J)  =  1XDT  14  ( J  J 
1X05, JJ  =  IXDT15C  J) 

IX ( 16, J )  *  IXDT161 J) 

1X07,  J)  =  IXDT  17  ( J  ) 

1X08,  J)  =  1XDT18  ( J) 

1X09, J)  =  IXDT  19  ( J 1 

46  1X120,  J)  =  1XDT20U) 

I F (NELZ  .EO.  1  )  GO  TO  47 
DO  48  IELZ=2,NELZ 
DO  48  1*1,20 

H  =136*( IELZ— 1) 

L  =1  ♦20*  ( I E-LZ-1 1 
DO  43  J=l,24 
48  IX(L,J)  =  IX(I,J1  +  H 

47  CONTINUE 

IFOFLHL  «L0.  0)  GO  TO  75 
DO  78  IELZ=1,NELZ 
1EIZM1  =  1ELZ-1 
L  =  136  *  IfcLZMl 
DO  83  1=1,24 

IX(NEL+i,I)  =  1XDTPUI)  ♦  L 
I  X(NEL+2 ,1 )  *  1X0TP2O)  ♦  L 
IX (NEL+3 ,1 )  =  IX0TP3(I  )  ♦  L 

83  1X(NEL*4,1)  =  IXDTP4U)  ♦  L 

L  =  9  *  IEIZM1 

00  84  1=1,10 

lX(NfcL*l»lDXl(I)>  =  NGNP  ♦  lPLNPl(I)  «■  L 
1X(NEL*2, 10X200  =  NGNP  +  1PLNP211)  ♦  L 
IX1NEL  +  3, IDX3II1)  =  NGNP  ♦  IPLNP3U)  ♦  L 

84  IX (NEL+4 ,10X4(11)  =  NGNP  +  1PLNP4U)  t  L 
78  NEL  =  NEL  ♦  4 

■  NGNP  =  NGNP  ♦  9* ( NELZ* 1 1 


DAH  1540 
DAH  1550 
DAH  1560 
DAH  1570 
DAH  1580 
DAH  1590 
DAH  1600 
DAH  1610 
DAH  1620 
DAH  1630 
OAH  1640 
DAH  1650 
DAH  1660 
DAH  1670 
OAH  1680 
DAH  1690 
DAH  1700 
DAH  1710 
DAH  1720 
DAH  1730 
DAH  1740 
DAH  1750 
OAH  1760 
DAH  1770 
DAH  1780 
DAH  1790 
DAH  1800 
OAH  1810 
DAH  1820 
DAH  1830 
DAH  1840 
DAH  1850 
DAH  1860 
DAH  1870 
DAH  I860 
DAH  1890 
DAH  1900 
DAH  1910 
DAH  1920 
DAH  1930 
DAH  1940 
DAH  1950 
DAH  I960 
DAH . 1970 
DAH  1980 
DAH  1990 
DAH  2000 
DAH  2010 
DAH  2020 
DAH  2030 
DAH  2040 
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75  CONTINUE 

DAH 

2050 

I XELCH (NELCHt 1 )  =  0 

DAH 

2060 

IXMLCH1NMLCH+1)  =  0 

DAH 

2070 

1=0 

.  DAH 

2080 

J  =  0 

DAH 

2090 

DO  23  INEL=1,NEL 

DAH 

2100 

IF ( INEL  .EG.  IXHLCHI 1 ♦ 1 1 )  1=1+1 

DAH 

2110 

I F  ( 1NEL  .EO.  IXELCHU  +  1)  )  J=J+1 

DAH 

2120 

IX( INELt  25 )  =  IHATL(l) 

OAH 

2130 

IX ( INELt 26 )  =  ITYEL(J) 

DAH 

2150 

23  CONTINUE 

DAH 

2150 

00  33  1=1, NFL 

DAH 

2160 

33  1XIZ ,27)  =  ICLASS 

OAH 

2170 

DO  36  I=1*NCNP 

,  DAH 

2180 

35  MTLNDU)  =  0 

DAH 

2190 

X ( 1 )  =  RADHL 

DAH 

2200 

DO  59  1=7,13 

DAH 

2210 

59'xm  =  0.00 

DAH 

2220 

X ( 15 )  =  (XINSRT-RAOHL I/3.D0+RADHL 

DAH 

2230 

X ( 16 )  *  XINSRT  /  3. DO 

DAH 

2250 

X ( 17)  =  XI 16) 

DAH 

2250 

X ( 18 )  =  2. DO  *  ( XINSRT-RADHL1/3.D0+RADHL 

DAH 

2260 

X ( 20  J  =  2.00  *X( 16) 

DAH 

2270 

X(21)‘  =  X(  20) 

DAH 

2280 

00  50  1=22,28 

DAH 

2290 

50  X(l)  =  XINSRT 

DAH 

2300 

X ( 29 )  =  ( XLNTH-X INSRT )  '  3.00  ♦  XINSRT 

DAH 

2310 

X ( 30 )  =  X( 29) 

DAH 

2320 

X ( 31 )  =  XI 29) 

DAH 

2230 

X ( 32 )  =  2.00* (XLNTH-X INSRT )  /  3.D0  ♦  XINSRT 

DAH 

2350 

X  (  33 )  =  X( 32) 

DAH 

2350 

X(35)  =  X(32) 

DAH 

2360 

DO  51  1=35,51 

OAH 

2370 

51  X(I)  =  XLNTH 

OAH 

2380 

r(i)  =  0.00 

DAH 

2390 

Y ( 7) =RADHL 

DAH 

2500 

Y ( 8)  =  ( Y1NSRT-RADHL  )/3 .OO+RAOHL 

DAH 

2510 

Y  (9)  =  2. DO*  (Y1NSRT-RADHU/3.00+RADHL 

DAH 

2520 

YIIOI  =  YINSRT 

DAH 

2530 

Y ( 12 )  =  2. DO  ♦  (YLNTH-Y1NSRTJ/3.00  +  YINSRT 

DAH 

2550 

Y( 13)  =  YLNTH 

DAH 

2550 

Y ( 15 )  =  0.00 

DAH 

2560 

Y(ll)  =  (YLNTH-Y INSRT ) /3.00  ♦  YINSRT 

DAH 

2570 

Y ( 16 )  *  YINSRT 

DAH 

2580 

Y ( 17 )  =  YLNTH 

DAH 

2590 

Y ( 18 )  =  O.DO 

DAH 

2500 

Y ( 20 )  =  YINSRT 

UAH 

2510 

Y (21 )  *  YLNTH 

DAH 

2520 

Y ( 22 )  =  0.00 

DAH 

2530 

Y ( 23 )  *  YINSRT  /  3,00 

DAH 

2550 

T  (25)  *  YINSRT  /  3.00  +  2.00 

.  DAH 

2550 

D-ll 


Y ( 25 )  =  YINSRT 
Y<26)  =  Y( 11) 

Y  C  27 1  =  Y(  12) 

Y ( 28 )  =  YLNTH 
Y ( 29  )  =  0.00 
Y(30)  =  YINSRT 

Y  ( 31 )  =  YLNTH  • 

Y ( 32 )  =  0.00 

Y ( 33 )  =  YINSRT 
Y(34)  =  YLNTH 
00  52  1=35,41 
52  Y ( I I  =  YCI-13) 

IFUFLHL  .EO.  0)  GO  TO  79 
NGNP1  =  136*(N£LZU) 

NELl  =20*NELZ 
DO  60  1ELZ=1,NELZ1 
H  =  NGNP1  ♦  (I£LZ-1)*9 
XIM+1)=-2.D0*RA0HL/3.D0 
X  (M+2 )  =  -RADHL/3.DC 
X(M*3)  =  0.00 
X(M*4)  =  — X (M+2 ) 

X (M*5 )  =  -X(MU) 

X(M*6)  =  0.00 
X(H«7)  =  0.00 
X (M*8)  =  0.00 
X  ( M-»9)  =  0.00 
00  86  1=1,5 
86  Y(M+I)  =  0.00 
V(H*6)  =  X  {  M+5 ) 

Y ( M*7 )  =  XlM+4) 

Y ( M*8)  =  X(M*2J 
Y ( H*9)  =  X  (  H* 1 ) 

00  80  1=1,9 

80  ZU+M)  =  (IELZ-1 )  ♦  ZELTHS 
79  CONTINUE 

GO  TO  (1,2,3),  ITYHL 
1  SXTHPI  =  3.141592613509800  /  12.00 

X ( 2)  =  RAOHL  *  DCOCU .00* SXTHPI) 

X ( 3)  =  RAOHL  *  OCOSi 2 .00* SXTHPI ) 

X (4)  =  RAOHL  *  OCOS( 3. 00* SXTHPI) 

X ( 6)  =  RAOHL  *  DCOS(4.00*SXTHPI) 

X (6)  =  RAOHL  *  0COS(5.0O*SXTHPI) 

X ( 15  )  =  (XINSRT-RA0HL*0C0S(3.00*SXTHP1) )/3.00 

1  ♦  RAUHL*0COS(3.00*SXTHPI  ) 

X ( 19 )  =  2.00*(XINSR7-RADHL*0COS(3.00*SXTHPI) )/3.D0 
1  ♦  RADHL*DC0S(3.D0*SXTHPI ) 

Y(2)  =  RA0HL*0SIN(1.D0*$XTHP1) 

Y ( 3)  =  RADHL*DSIN(Z.OO*SXTHPI) 

Y ( 4 )  =  RADHL*0SIN(3,00*SXTHP1) 

Y ( 5)  =  RAOHL*DSIN (4.D0*SXTHP1 ) 

Y  (6)  =  RADHL*DS1M5.D0*SXTHPI) 


DAH  2560 
DAH  2570 
OAH  2580 
DAH  2590 
DAH  2600 
DAH  2610 
OAH  2620 
OAH  2630 
DAH  2640 
DAH  2650 
DAH  2660 
DAH  2670 
OAH  2680 
OAH  2690 
DAH  2700 
DAH  2710 
DAH  2720 
DAH  2730 
OAH  2740 
DAH  2750 
DAH  2760 
DAH  2770 
DAH  2780 
DAH  2790 
DAH  2800 
DAH  2810 
OAH  2820 
OAH  2830 
DAH  2840 
DAH  2850 
DAH  2860 
DAH  2870 
DAH  2880 
OAH  2890 
DAH  2900 
DAH  2910 
DAH  2920 
DAH  2930 
DAH  2940 
DAH  2950 
DAH  2960 
DAH  2970 
DAH  2980 
DAH  2990 
DAH  3000 
DAH  3010 
OAH  3020 
DAH  3030 
DAH  3040 
OAH  3050 
DAH  3060 
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Y 1 15 )  =  (YINSRT-RADHL*DSIN13.00*SXTHPI )) 

/ 

3.00 

DAH 

3070 

1  ♦  RAOHL  *  DSIN(3.D0*SXTHPI ) 

OAH 

3080 

Y»19;  =  2.00* I YINSRT-RADHL*OS IN13 .DO*SXTHPI ) ) 

/ 

3. DO 

OAH 

3090 

1  ♦  RAOHL  *  DSINl 3.D0*SXTHPI) 

OAH 

3100 

GO  10  7 

OAH 

3110 

2  00  87  1=2,4 

DAH 

3120 

X(I)  *  RAOHL 

DAH 

3130 

87  Y(I+2)*=  RAOHL 

DAH 

3140 

X ( 5 )  *  2.00  *  RA0HL/3.U0 

OAH 

3150 

Xlo)  =  RADHL/3.00 

DAH 

3160 

Y( 2)  =  X (6) 

DAH 

3170 

Y (3)  =  X (5 ) 

DAH 

3180 

X  ( 15  >  =  X(  14) 

DAH 

3190 

X  1  19  )  r  X(l(>) 

OAH 

3200 

Y  ( 15 )  =  Y( 8 ) 

OAH 

3210 

Y  ( 19 )  =  Y(9) 

DAH 

3220 

GO  TO  7 

DAH 

3230 

3  X ( 2 )  =  5.00  *  RADHL/6.00 

DAH 

3240 

X ( 3)  =  2.00  *  RADHL/3.00 

OAH 

3250 

X 1 4 )  =  kAOHL/2 .00 

OAH 

3260 

X  1 5 )  =  X (3 )  /  2.00 

OAH 

3270 

X (6)  =  X  (5 )  /  2.00 

DAH 

3280 

00  08  1=2,6 

DAH 

3290 

88  Y(l)  *  X 18-1 ) 

OAH 

3300 

X 1 15 )  =  ( X ( 14 )  ♦  X ( 16 ) 1/2.00 

DAH 

3310 

X ( 19 )  =  1X518)  ♦  X ( 20 ) 1/2.00 

DAH 

3320 

Y ( 15 )  =  1 Y 1  8)  ♦  YI23 ) )/2«U0 

OAH 

3330 

Y( 19 )  =  ( Y (  9)  ♦  Y (24 ) 1/2.00 

• 

DAH 

3340 

7  CONTINUE 

DAH 

3350 

00  601  1=1,6 

OAH 

3360 

X141+1)  =  -X(l) 

DAH 

3370 

601  Y141+I)  =  Y 1 1 ) 

OAH 

3380 

00  602  1=14,41 

DAH 

3390 

XI 34*1)  =  -X(I) 

DAH 

3400 

602  Y ( 34+1 )  =  Y1I) 

DAH 

3410 

00  603  1=2,13 

DAH 

3420 

X 1 74+1 )  =  -XII) 

DAH 

3430 

603  Y174+I)  =  — Y ( I ) 

OAH 

3440 

00  604  1=15,17 

OAH 

3450 

X 1 73+1 )  =  -X(l) 

DAH 

3460 

604  Y  ( 73+1 )  =  -YU) 

DAH 

3470 

00  605  1=19,21 

DAH 

3480 

X172+I)  =  -XU) 

OAH 

3490 

605  Y ( 72*1 )  =  -Y(I) 

DAH 

3500 

00  606  1=23,28 

OAK 

3510 

X ( 71*1 )  =  -XII)  ' 

OAH 

3520 

606  Y 171+1)  =  -YU) 

OAH 

3530 

X1100)  =  -XI 30) 

DAH 

3540 

XUC1)  =  — X  131 ) 

DAH 

3550 

X (102)  =  -X133) 

OAH 

3560 

X 1 103)  =  — XI 34 ) 

DAH 

3570 
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Y ( 100)  =  — Y ) 30 ) 

Y(10X)  =  — Y (31) 

-UO?)  =  -Y<33) 

Y ( 103 )  =  -Y(34 ) 

DO  607  1=36.41 
X (68+I )  =  -X«l) 

607  Y<68*1>  =  -Y( 1 ) 

00  608  1=2.6 
xd08*n  =  xm 

608  Y ( 108+1)  =-Y( 1 ) 

DO  609  1=88,109 
X ( 27+1 )  =-Xd> 

609  Y ( 27+1 J  =  Y(I) 

DO  53  1=1,136 

53  Zlll  =  P.DG 

DO  54  16LZ=1,NELZ 
.XL  =  IELZ  *  ZELTHS 
DO  54  1=1,136 
L  =  IELZ  *  136  ♦  1 
Z(H  =  XL 
Y(L)  =  Y(I) 

54  X C L )  =  X(I) 

DO  55  1=1,NGNP 
lCUUEd)  *  0 
UXd  1=0.00 
UY(I)=0.D0 

55  UZ(1)=0.D0 
DO  58  1=1,136 

58  ICGDEd)  =5 
L  =  136MNELZ  +  1) 

DO  57  1=1,9 

57  ICODdm)  =  5 

IMLOHD  .EQ.  1)  GO  TO  60 
DO  56  1=36,41 
ICODEd  )  =  3 
I  CODE ( 1+34)  =  3 
ICUDEd*6b)  =  3 
lCODEd-f  95 )  =  3 
UXd  )  =  OSPLO 
UXd +95)  =  OSPLO 
UXd+68)  =-DSPL0 
UX(1 +34)  =-0SPL0  • 

00  56  IELZ=1,NELZ 
L  =  136  *  IELZ 
ICODEd+L  )  =  1 
lCUDEd  +  L+34)  =  1 
ICQDEt I+L+68)  =  1 
ICODEd  +  L+96)  =  1 
UX(I+L  )  =  OSPLD 
UXd+L+95)  =  OSPLD 
UXd+L+34)  =-DSPLD 


DAH  3580 
DAH  3590 
OAH  3600 
DAH  3610 
DAH  3620 
DAH  3630 
DAH  3640 
DAH  3650 
DAH  3660 
DAH  3670 
DAH  3680 
DAH  3690 
DAH  3700 
DAH  3710 
DAH  3720 
DAH  3730 
DAH  3740 
DAH  3750 
DAH  3760 
DAH  3770 
DAK  3780 
DAH  3790 
DAH  3800 
DAH  3810 
DAH  3820 
DAH  3830 
DAH  3840 
DAH  3850 
DAH  3860 
DAH  3870 
DAH  3880 
DAH  3890 
DAH  3900 
DAH  3910 
DAH  3920 
DAH  3930 
DAH  3940 
DAH  3950 
DAH  3960 
DAH  3970 
DAH  3980 
DAH  3990 
DAH  4000 
DAH  4010 
DAH  4020 
DAH  4030 
DAH  4040 
DAH  4050 
DAH  4060 
DAH  4070 
DAH  4080 
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56  UX ( I -M.+68)  =-DSPLD 
I  CODE (35 )  =  7 
K0DE«49)  =  7 
UX( 35)  ---  DSPLO 
UX (69)  =-OSPLD 
DO  63  If LZ=1»NELZ 
L  =  136*1EIZ 
I  CODE ( 35+L)  =  I 
IC0DE(69+L )  =  1 
UX (35+L )  =  OSPLD 
63  UX (69+L)  =-DSPLO 
GO  TO  9 
60  CONTINUE 

IF(NELZ  .EO.  1)  GO  TO  65 
DO  64  IELZ=2»NECZ 


M  =136*( 1ELZ-1) 

72UXU+H)  =5XL0SQ(I-34)  ♦  YINSRT*Z£LTHS  ♦  DSPLD/8.D0 

73  Sx(T^M)==8UX«1^M)  +  (XLOSOtl-37)  *  ( YLNTH-YINSRT)*ZELTHS 

!  *DSPL0/8.00  ) 

64  CONTINUE 

65  uxm  1  =5XU0S0(I-34)  *  YINSRT*ZELTHS  *  DSPLD/16.D0 

66  UX(M)l3b*NXLDS0( 1-34)  *  YINSRT*ZELTHS  *  DSPLD/16.D0 
DO  74  1=38,41 

SxmIl36*NUX(M)  ♦  ( XLDSOI 1  —  37)  *  ( YLNTH-YINSRT)*ZELTHS 

,  ♦DSPLD/16.D0)  .  , 

74  UX(I)  r  UX(I)  ♦  (XLDSUU-37)  *  ( YtNTH-YINSRT )*ZfcLTHS 

!  4DSPLD/16.D0) 


NELZP1  =  NEU  +  I 
DO  81  1=36,41 
DO  81  1ELZ=1»NELZP1 
H  =  136  *  (1ELZ-1)  ♦  I 
UX(M*34)  =  -UX( I ) 

UX(M*68)  =  HJX( I J 

81  UX(M*95J  =  UX( I) 

DO  82  1=1, NELZP1 
H  =  136*(I-1) 

UX(H-»35)  =  2.00  *  UXJM05) 

82  UX(H+69)  =  -UXUH-35) 

I CODE (35 )  =  6 
ICUDE( 69 )  =  6 
ICODE( 13 )  =  3 

I  CODE (87  )  =  3 
9  RETURN 
END 


DAH  4090 
DAH  4100 
DAH  4110 
DAH  4120 
DAH  4130 
DAH  4140 
DAH  4150 
DAH  4160 
DAH  4170 
DAH  4180 
DAH  4190 
DAH  4200 
DAH  4210 
DAH  4220 
DAH  4230 
DAH  4240 
DAH  4250 
DAH  4260 
DAH  4270 
DAH  4200 
DAH  4290 
DAH  4300 
DAH  4310 
DAH  4320 
OAH  4330 
DAH  4340 
DAH  4350 
DAH  4360 
DAH  4370 
DAH  4380 
DAH  4390 
DAtJ  4400 
DAH  4410 
DAH  4420 
DAH  4430 
DAH  4440 
DAH  4450 
DAK  4460 
DAH  4470 
DAH  4480 
DAH  4490 
DAH'  4500 
DAH  4510 
DAH  4520 
DAH  4530 
DAH  4540 
OAH  4550 
DAH  4560 
DAH  4570 
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SUBROUTINE  TITLE  TIH  10 

c  TIH  20 

C  *****************  >'.i**##***********4TiH  30 

c  *  *  TIH  40 

C  *  SUBROUTINE  TITLE  PRINTS  THE  HEADING  ON  EACH  PAGE  *  TIH  50 

C  *  *  TIH  60 

»*#*********♦************♦*****+**  TIH  70 

c  TIH  80 

IMPLICIT  REAL*3  (A-H.O-Z)  TIH  90 

COMMON  /  HEAD  /  HEOilO) ,ICRO, 1WRT»1PAGE*LINE  TIH  100 

100  FORMAT  ( 1H1  * ' FEM  72-OOF  GENERAL  HEXAHEDRONS  THERMO-ELASTIC*  VARYINTIH  110 

1G  MATERIAL  PROPERTIES#  DANA* »  9X»  ‘PAGE*,  13 J  TIH  120 

101  FORMAT  (1H0.10A8  )  T1H  130 

WRITE  (IWRTtlOO)  1PAGE  TIH  140 

WRITE  (I WR 7*101)  HED  TIH  150 

1 PAGE=  IPAGE  +1  TIH  160 

LINE  =  0  TIH  170 

RETURN  TIH  180 

ENO  *  TIH  I90 
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SUBROUTINE  MODI' 


*******  i  *  *  *  •  *  «  s  *  *  t  *  *  *  «  »  »  .  .  t  *  *  t  k  *  *  »  MOM 

*  •»  MOM 

*  SUUKOUT  1NE  MOUf  DUES  NOTHING  —  THIS  SUBROUTINE  TAN  bf.  USED  TO  *  MOH 

*  MODIFY  ANY  INFORMATION  THAT  HAS  BEEN  GENE  GATED  «■  MOM 

*  *  MOM 


**«•><<***«?***«****.-  ***,***»********  MOM 

MOM 

IMPLICIT  KC-Al^R  (A-H.C-2)  MOM 

INTEGERS  IX,  1  CODE .  10PIX1,  MTLNO  MOH 

COMMON  /GENMAT/  X ( 10 15 ) . Yt 1015 ) , L C 1015 ) ,UX ( 101 5  I »UY I  1015 1 , 07  I 1 01 5)M0H 

1  .  TMPNUU015),  BCTMP,  MOM 

2  ALFAK 10) » ALE A2 ( 10 1 , ALF A3 ( 10) ,F I  BOR T (1 0 ) , L I  10,9,10)  .IMPEL! 10, 10), MOM 

3  NTMPI 10) , IX! 14 A, 27), 1CC0E! 1015), I  DP  1X1(19, 19, 11), MTLNO (1015)  MOM 
COMMON  /  GENLl  /  TMP1NT,  EPSTMP,  AX,  BY,  C/,  THE L LX , TMELL Y , l LL l , MOM 

1  NLl,  NGNP ,  NGLOF ,  NMTL ,  NTYEE,  LMTMP,  NLLX,  NELY,  NEL  7 ,  1CLASSM0M 

2  ,  ITYTO,  NELX31,  NCLY31 ,  NEUl  MOH 

COMMON  /  HEAD  /  HEOI 10) , 1CR0, 1WRT , 1  PAGE ,L INI  MOH 

RETURN  MUM 

END  MOM 


$***«******** 


